Tag: ggplot2

如何增加ggplot2中条形图中的条形图之间的空间？

如何增加ggplot2中条形图中的条形图之间的空间？

在ggplot2中的qqnorm和qqline

说有一个线性模型LM，我想要一个残差的qq图。 通常我会使用R基本graphics： qqnorm(residuals(LM), ylab="Residuals") qqline(residuals(LM)) 我可以弄清楚如何获得情节的qqnorm部分，但我似乎无法pipe理qqline： ggplot(LM, aes(sample=.resid)) + stat_qq() 我怀疑我错过了一些非常基本的东西，但似乎应该有一个简单的方法来做到这一点。 编辑：非常感谢下面的解决scheme。 我已经修改了代码（非常轻微地）从线性模型中提取信息，以使绘图像R基本graphics包中的便捷图一样工作。 ggQQ <- function(LM) # argument: a linear model { y <- quantile(LM$resid[!is.na(LM$resid)], c(0.25, 0.75)) x <- qnorm(c(0.25, 0.75)) slope <- diff(y)/diff(x) int <- y[1L] – slope * x[1L] p <- ggplot(LM, aes(sample=.resid)) + stat_qq(alpha = 0.5) + geom_abline(slope = slope, intercept = […]

如何将徒手画的红色圆圈添加到ggplot2graphics中？

去年我发布了一个用户活动分析到元堆栈溢出 ，包括一系列ggplot2图。 然而， Wooble通过指出我的阴谋有一个致命的缺陷， 写意的红色圆圈在Meta Stack Overflow的任何情节中当然是必要的 ，但令我沮丧的是，我无法find将它们添加到ggplot2图表的方法。 我知道如何添加一个圈子 ，但是这样一个人造的构造没有个性，永远也不会通过元素。 作为一个可重复的例子，考虑一下随着时间的推移，我自己的回答活动，使用堆栈包创build的情节 ： # devtools::install_github("dgrtwo/stackr") library(ggplot2) library(dplyr) library(lubridate) library(stackr) answers <- stack_users(712603, "answers", num_pages = 10, pagesize = 100) answers_per_month <- answers %>% mutate(month = round_date(creation_date, "month")) %>% count(month) ggplot(answers_per_month, aes(month, n)) + geom_line() 这个情节足够丰富，但没有灵魂 。 我怎样才能将写意的红色圆圈添加到它？

脚本中的ggplot图不会显示在Rstudio中

我对Rstudio有一个奇怪的问题：如果一个脚本调用ggplot2函数来显示一个图，那么使用Source来运行脚本不会产生图。 如果我用Ctrl+Aselect整个脚本，则运行当前行或select （ Ctrl+Enter ），然后显示graphics。 同样，在控制台中input绘图命令会产生正确的输出。 例如： library(ggplot2) p = ggplot(mtcars, aes(wt, mpg)) p + geom_point() 如果粘贴到控制台，只会产生输出，而不是源。 还有其他的问题，但是都没有帮助： ggplot2 ggsave函数会导致graphics设备不能显示重复的graphics，声称这个问题是在新版本中修复的，它没有。 RStudio – ggplot没有保存第一个打印和保存脚本中的多个图作为重复，但它不仅不是重复，但dev.off()解决方法不起作用（“ Error in dev.off() : cannot shut down device 1 (the null device) “） 当一个脚本来源时，如何让Rstudio显示graphics？ 我正在使用Rstudio 0.98.1062和R 3.1.1。

如何删除ggplot2中的图例标题？

我有一个关于ggplot2中的图例的问题。 假设我有一个关于两个农场的两种不同颜色的平均胡萝卜长度的假设数据集： carrots<-NULL carrots$Farm<-rep(c("X","Y"),2) carrots$Type<-rep(c("Orange","Purple"),each=2) carrots$MeanLength<-c(10,6,4,2) carrots<-data.frame(carrots) 我做一个简单的酒吧情节： require(ggplot2) p<-ggplot(carrots,aes(y=MeanLength,x=Farm,fill=Type)) + geom_bar(position="dodge") + opts(legend.position="top") p 我的问题是：有没有办法从图例中删除标题（'types'）？ 谢谢！

ggplot的曲线（）的等价

是否有一个等价的方法来绘制函数使用ggplot curve()命令中使用的基础graphics？ 我猜想另一种方法是创build一个函数值的向量并绘制一条连线，但是我希望更简单些。 谢谢！

如何将注释中的文本与ggplot2alignment

我的例子是： qplot(mtcars$mpg) + annotate(geom = "text", x = 30, y = 3, label = "Some text\nSome more text") 我如何让这里的文本左alignment？ 所以说'有些人互相排队。

ggplot2绘制区域的边际？

是否有一个简单的方法来增加小块标题和它下面的绘图区域（包含数据的框）之间的空间。 同样，我宁愿在轴标题和轴标签之间留有一些空白。 换句话说，是否有一种方法可以“将标题稍微向上移动，y轴标题稍微离开一点，x轴标题稍微向下”？

如何用ggplot2设置图例alpha

我有一个相对于有大量积分的方向的风速图，所以我除了颜色=月份外还使用alpha = I（1/20） 这是一个代码示例： library(RMySQL) library(ggplot2) con <- dbConnect(…) wind <- dbGetQuery(con, "SELECT speed_w/speed_e AS ratio, dir_58 as dir, MONTHNAME(timestamp) AS month, ROUND((speed_w+speed_e)/2) AS speed FROM tablename;"); png("ratio-by-speed.png",height=400,width=1200) qplot(wind$dir,wind$ratio,ylim=c(0.5,1.5),xlim=c(0,360),color=wind$month,alpha=I(1/30),main="West/East against direction") dev.off() 这产生了一个体面的图，但是我的问题是，传说的alpha也是1/30，这使得它不可读。 有没有一种方法可以强制传说是1 alpha而不是？ 这里是一个例子：

如何解决ggplot的纵横比？

我试图调整一个情节，以适应我的文件，但我很难让绘制的图是一个正方形。 例： pdf(file = "./out.pdf", width = 5, height = 5) p <- ggplot(mydata, aes(x = col1, y = col2)) print(p) aux <- dev.off() 尽pipex和y的限制是相同的，但结果中的图不是方形的。 我想R使封闭面板5×5“，但不关心实际的图表大小。 我怎样才能摆脱我的图表？