我想将散点图按每2列绘制一次，将错误作为错误:二进制运算符的非数值参数。

Question

守则如下：

Raw=mtcars
cn=colnames(Raw)
sapply(1:7,function(i)ggplot(data=Raw,aes(x=Raw[,i],y=Raw[,i+1])+
                                            geom_line()+geom_point(size=4,shape=20)+
                                            labs(x='totality_accuray',y=cn[i]))
)

可以帮助解决错误提示的问题:aes中的错误(x= Raw，i，y= Raw，i+ 1) + geom_line()：二进制运算符的非数值参数

Answer 1

使用两个命名变量的自定义绘图函数：

plotFn <- function(x,y, df){
           ggplot(df,aes_string(x,y)) +
           geom_line() +  
           geom_point(size=4,shape=20)
          }


plotFn("disp", "cyl", mtcars) 

​

​

获取x和y轴的变量列表：

Raw <- mtcars
cn <- colnames(Raw)

arg <- lapply(1:(ncol(Raw)-1), function(x) list(x = cn[x],
                                    y = cn[x+1]))

策划10个地块：

lapply(arg, function(i) plotFn(i[["x"]], i[["y"]], Raw))