我需要繪制一個(gè)散點(diǎn)圖，用變量的列號(hào)而不是名稱來(lái)尋址變量，即代替，ggplot(dat, aes(x=Var1, y=Var2))我需要類似的東西ggplot(dat, aes(x=dat[,1], y=dat[,2]))。（我說(shuō)“某事”是因?yàn)楹笳卟黄鹱饔茫＿@是我的代碼：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 回答
料青山看我應(yīng)如是
TA貢獻(xiàn)1772條經(jīng)驗(yàn) 獲得超8個(gè)贊
@Shadow答案的一種變體，使用來(lái)自的新功能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從變量中包含的字符串創(chuàng)建一個(gè)符號(hào)（因此我們首先必須在函數(shù)的開(kāi)頭創(chuàng)建這些變量），然后!!將其取消引用，這意味著它將像您已輸入函數(shù)原始名稱一樣工作。
!!僅在旨在支持該功能的功能（通常是tidyverse功能）的上下文中起作用，否則它的意思是“不是”（類似于as.logical）。
FFIVE
TA貢獻(xiàn)1797條經(jīng)驗(yàn) 獲得超6個(gè)贊
您的問(wèn)題是，aes您不知道函數(shù)的環(huán)境，而只看內(nèi)部global environment。因此，變量dat聲明中的功能是不可見(jiàn)到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)
}
注意參數(shù)environment = environment()的內(nèi)部ggplot()命令?，F(xiàn)在應(yīng)該可以工作了。
- 3 回答
- 0 關(guān)注
- 759 瀏覽
添加回答
舉報(bào)
0/150
提交
取消