我想在美学中使用数据框中动态添加的列名。基本上尝试使用单独的向量prm(c("a","b","c"))解码中的变量名到数据帧中的列名，但prm[1]/prm[2]不起作用。以下代码使用names()获取上次添加列的列名但仍然无效。
有人可以帮助找出此代码中的问题。
rn_s<-subset(rn, rn$ReadScore > 0.1)
y_count = "..count.."
d <-ggplot(data=rn_s,
aes_string(x=names(rn_s)[length(names(rn_s))], y=y_count,
shape = names(rn_s)[length(names(rn_s))-2],
colour = factor(rn_s[["Productivity"]]),
size=1.8),geom="point",stat="bin") +
facet_grid(paste(". ~ ",prm[2],sep="")) +
labs(title="ReadCount Distribution by Productivity : Sequencing Quality Metric \n (Filter: ReadScore > 0.1)", y="Counts", x="Sample") +
guides(colour = guide_legend(title = "Productivity"),
shape = guide_legend(title="Instrument"),
size = guide_legend(NULL)) +
scale_fill_manual(values=PacBioCols)
show(d)