我需要繪制一個散點圖，用變量的列號而不是名稱來尋址變量，即代替，ggplot(dat, aes(x=Var1, y=Var2))我需要類似的東西ggplot(dat, aes(x=dat[,1], y=dat[,2]))。（我說“某事”是因為后者不起作用）。這是我的代碼：showplot1<-function(indata, inx, iny){ dat<-indata print(nrow(dat)); # this is just to show that object 'dat' is defined p <- ggplot(dat, aes(x=dat[,inx], y=dat[,iny])) p + geom_point(size=4, alpha = 0.5)}testdata<-data.frame(v1=rnorm(100), v2=rnorm(100), v3=rnorm(100), v4=rnorm(100), v5=rnorm(100))showplot1(indata=testdata, inx=2, iny=3)# Error in eval(expr, envir, enclos) : object 'dat' not found
3 回答
料青山看我應如是
TA貢獻1772條經驗 獲得超8個贊
@Shadow答案的一種變體，使用來自的新功能ggplot2 V3.0.0：
showplot <- function(indata, inx, iny){
nms <- names(indata)
x <- nms[inx]
y <- nms[iny]
p <- ggplot(indata, aes(x = !!ensym(x), y = !!ensym(y)))
p + geom_point(size=4, alpha = 0.5)
}
testdata <- data.frame(v1=rnorm(100), v2=rnorm(100), v3=rnorm(100), v4=rnorm(100), v5=rnorm(100))
names(testdata) <- c("a-b", "c-d", "e-f", "g-h", "i-j")
showplot(indata=testdata, inx=2, iny=3)
ensym從變量中包含的字符串創建一個符號（因此我們首先必須在函數的開頭創建這些變量），然后!!將其取消引用，這意味著它將像您已輸入函數原始名稱一樣工作。
!!僅在旨在支持該功能的功能（通常是tidyverse功能）的上下文中起作用，否則它的意思是“不是”（類似于as.logical）。
FFIVE
TA貢獻1797條經驗 獲得超6個贊
您的問題是，aes您不知道函數的環境，而只看內部global environment。因此，變量dat聲明中的功能是不可見到ggplot2的aes功能，除非你明確地傳遞為：
showplot1<-function(indata, inx, iny) {
dat <- indata
p <- ggplot(dat, aes(x=dat[,inx], y=dat[,iny]), environment = environment())
p <- p + geom_point(size=4, alpha = 0.5)
print(p)
}
注意參數environment = environment()的內部ggplot()命令?，F在應該可以工作了。
- 3 回答
- 0 關注
- 762 瀏覽
添加回答
舉報
0/150
提交
取消