Question

我的表格如下所示，

chr1    500     15      0.502   na
chr1    1000    21      0.641   0.019704955
chr1    1500    21      0.621   0.016777844
chr1    2000    22      0.534   na
chr1    2500    35      0.698   0.028712731
chr2    4500    2       0.371   na    
chr2    5000    3       0.342   na    
chr4    5500    1       0.068   na    
chr4    6000    0       0.000   na    
chr4    6500    0       0.000   na    
chr5    7000    2       0.079   na    
chr5    7500    12      0.440   na

从这张表中，我想生成多个图 - 每个chr一个 - 其中X轴和Y轴将是第2列和第5列。

根据对另一个问题的回答，我尝试了这个，

require(ggplot2)
require(plyr)
Y <- read.table("integ.pi")
names(Y) <- c("Chr","Window","SNPs","covfra","pi")
chrs <- levels(Y[,"Chr"])
c <- lapply(chrs, function(chr) {
ggplot(Y[Y[, "Chr"]==chr,], aes(x=as.factor(Window), y=pi)) 
})  
lapply(c)

但我错了

“错误：图中没有图层”。

我应该怎么做？有什么想法吗？

感谢。

干杯，

Answer 1

只是一个简单的示例，了解如何使用命令：

final CharSequence[] ss = {"1", "2", "3", "4"};

AlertDialog.Builder builder = new AlertDialog.Builder(context, R.style.MyAlertDialogStyle);
builder.setTitle("title");
builder.setItems(ss, new DialogInterface.OnClickListener() {
    @Override
    public void onClick(DialogInterface dialogInterface, int i) {

    }
});
builder.show();

情节中没有图层（R）

1 个答案: