截断y轴，数据消失[重复]

Question

当我截断 y 轴以仅显示 50 到 90 范围时，我的数据消失了。我是不是把 ylim 放错地方了？

电子表格如下所示：

xval yval_LWTW  linenames   SNP
1   61.4835166  MT9513      NN
2   61.93341478 RITA        GG
3   63.31277751 JUDITH      CC
4   63.60466558 CO04W320    GG
5   64.84700514 DECADE      NN

library(ggplot2)
library(xlsx)
data <- read.xlsx("RdataForGraphsofBestHits.xlsx", sheetIndex=4)
ggplot(data, aes(x=xval, y=yval_LWTW, fill=SNP,  
                     scale_fill_manual(values=c(GG="blue",CC="red",NN="green")))) + 
                     geom_bar(stat="identity", width=1) + 
                     theme(axis.title.x=element_blank())

这给了我一个很高的图，因为数据从 61 到 81。我想让 y 轴从 50 开始，所以图会更短，所以我在代码中添加了 + ylim(50.0, 90.0) .

library(ggplot2)
library(xlsx)
data <- read.xlsx("RdataForGraphsofBestHits.xlsx", sheetIndex=4)
ggplot(data, aes(x=xval, y=yval_LWTW, fill=SNP, 
        scale_fill_manual(values=c(GG="blue", CC="red", NN="green")))) + 
        geom_bar(stat="identity", width=1) + 
        theme(axis.title.x=element_blank()) + 
        ylim(50.0, 90.0)

现在我得到了绘图的灰色背景，y 轴很好地限制在 50 到 90 的范围内，但没有绘制数据。只有灰色背景和轴标签和图例。

我想我有使绘图水平的代码。

ggplot(data, aes(x=xval, y=yval_LWTW, fill=SNP, 
          scale_fill_manual(values=c(GG="blue", CC="red", NN="green")))) + 
          geom_bar(stat="identity", width=1) + 
          theme(axis.title.x=element_blank()) + 
          coord_fixed(ratio=1/2)

所以如果我能解决消失数据的问题，我就可以解决水平问题。

Answer 1

很好奇所以我把它编码了：

n <- 250
xval <- 1:n
yval <- 61 + 4*sin(2*pi*(1:n)/n) + 18*(1:n)/n
snp <- sample(c("CC",rep("GG",40),rep("NN",40)),n,replace=T)
data <- data.frame(xval=xval,yval_LWTW=yval,SNP=snp)

ggplot(data, aes(x=xval, y=yval_LWTW, fill=SNP)) +  
             scale_fill_manual(values=c(GG="blue",CC="red",NN="green")) + 
             geom_bar(stat="identity", width=1) + 
             theme(axis.title.x=element_blank())

产量：

还有这个：

ggplot(data, aes(x=xval, y=yval_LWTW, fill=SNP)) +  
             scale_fill_manual(values=c(GG="blue",CC="red",NN="green")) + 
             geom_bar(stat="identity", width=1) + 
             theme(axis.title.x=element_blank()) +
             ylim(50,90)

产量：

还有user20650的coord_cartesian建议：

ggplot(data, aes(x=xval, y=yval_LWTW, fill=SNP)) +  
             scale_fill_manual(values=c(GG="blue",CC="red",NN="green")) + 
             geom_bar(stat="identity", width=1) + 
             theme(axis.title.x=element_blank()) +
             coord_cartesian(ylim=c(50,90))

产生这个：