我有两个R函数,可以将弧度和角度转换为笛卡尔坐标:
x_cart<-function(theta,r){
return(r * cos (theta))
}
y_cart<-function(theta,r){
return(r * sin (theta))
}
我想应用此函数在数据框中创建两个新列 x
和 y
,从列 angle
和 radius
中获得。当我使用 lapply 时,会出现一个错误,显示参数 r 缺失且没有默认值。
df$x<-apply(df[,c("angle_adj","hit_distance")],1, x_cart())
测试数据
angle<-c(10,15,20)
radius<-c(15,35,10)
df<-data.frame(angle,radius)