我需要制作一个针对初学者的教程,介绍如何使用R中的*apply函数(首先不使用reshape或plyr包)。
我尝试使用lapply
(因为我读到apply
不适用于数据框)将一个简单的函数应用于这个数据框,并且我想使用命名列来访问数据:
fDist <- function(x1,x2,y1,y2) {
return (0.1*((x1 - x2)^2 + (y1-y2)^2)^0.5)
}
data <- read.table(textConnection("X1 Y1 X2 Y2
1 3.5 2.1 4.1 2.9
2 3.1 1.2 0.8 4.3
"))
data$dist <- lapply(data,function(df) {fDist(df$X1 , df$X2 , df$Y1 , df$Y2)})
我有这个错误
$ operator is invalid for atomic vectors
,很可能是因为数据框被laply修改了?是否有更好的方法使用$命名列来解决它?我通过@DWin的答案解决了第一个问题。但我有另一个问题,对于混合数据框(数值+字符)不理解:
在我的新用例中,我使用两个函数来计算距离,因为我的目标是比较点之间的距离。
data2 <- read.table(textConnection("X1 Y1 X2 Y2
1 3.5 2.1 4.1 2.9
2 3.1 1.2 0.8 4.3
"))
data2$char <- c("a","b")
fDist <- function(x1,y1,x2,y2) {
return (0.1*((x1 - x2)^2 + (y1-y2)^2)^0.5)
}
fDist2 <- function(fixedX,fixedY,vec) {
fDist(fixedX,fixedY,vec[['X2']],vec[['Y2']])
}
# works with data (dataframe without character), but not with data2 (dataframe with character)
#ok
data$f_dist <- apply(data, 1, function(df) {fDist2(data[1,]$X1,data[1,]$Y1,df)})
#not ok
data2$f_dist <- apply(data2, 1, function(df) {fDist2(data2[1,]$X1,data2[1,]$Y1,df)})
lapply
所做的,那么内部函数每次只会看到一列。 - IRTFM