R 在ggplot2中覆盖圆
我想做的是在我拥有的圆上覆盖一个黑色轮廓的圆,但我不确定如何调整它们的大小,因为我已经有了不同的大小。还有没有办法把图例符号改成100万美元,200万美元R 在ggplot2中覆盖圆,r,ggplot2,R,Ggplot2,我想做的是在我拥有的圆上覆盖一个黑色轮廓的圆,但我不确定如何调整它们的大小,因为我已经有了不同的大小。还有没有办法把图例符号改成100万美元,200万美元 mikebay_usergraph <- ggplot(mikebay_movies_dt, aes(y = tomatoUserMeter, x = Released, label = Title)) + geom_point(aes(size = BoxOffice)) + (aes(color = tomatoImage
mikebay_usergraph <-
ggplot(mikebay_movies_dt, aes(y = tomatoUserMeter, x = Released, label = Title)) +
geom_point(aes(size = BoxOffice)) + (aes(color = tomatoImage)) +
geom_text(hjust = .45, vjust = -.75, family = "Futura", size = 5, colour = "#535353") +
ggtitle("The Fall of Bayhem: How Michael Bay movies have declined") +
theme(plot.title = element_text(size = 15, vjust = 1, family = "Futura"),
axis.text.x = element_text(size = 12.5, family = "Futura"),
axis.text.y = element_text(size = 12.0, family = "Futura"),
panel.background = element_rect(fill = '#F0F0F0'),
panel.grid.major=element_line(colour ="#D0D0D0",size=.75)) +
scale_colour_manual(values = c('#336333', '#B03530')) +
geom_hline(yintercept = 0,size = 1.2, colour = "#535353") +
scale_x_date(limits = c(as.Date("1994-1-1"),as.Date("2017-1-1"))) +
theme(axis.ticks = element_blank())
mikebay\u usergraph我提供了两种可能的解决方案,用于在散点图中的缩放点周围添加圆形或轮廓。对于第一种解决方案,我建议使用允许单独填充和轮廓颜色的打印符号。这里的缺点是无法控制轮廓的厚度。对于第二种解决方案,我建议在主geom_point层下添加一层稍大的黑色点。在这种情况下,可以通过将thickness
设置为0到1之间的值来手动调整轮廓的厚度
最后,通过加载scales
包,并将scale\u size\u continuous(labels=dollar)
添加到ggplot调用中,可以添加美元图例格式
library(ggplot2)
library(scales) # Needed for dollar labelling.
dat = data.frame(rating=c(80, 60, 40),
date=as.Date(c("1995-1-1", "2005-1-1", "2015-1-1")),
boxoffice=c(3e7, 1e8, 7e7),
tomato=c("fresh", "rotten", "rotten"))
p1 = ggplot(dat, aes(x=date, y=rating, size=boxoffice, fill=tomato)) +
geom_point(shape=21, colour="black") +
scale_fill_manual(values = c(fresh="green", rotten="red")) +
scale_size_continuous(labels=dollar, range=c(8, 22))
thickness = 0.35
p2 = ggplot(dat, aes(x=date, y=rating)) +
geom_point(colour="black",
aes(size=boxoffice + (thickness * mean(boxoffice)))) +
geom_point(aes(colour=tomato, size=boxoffice)) +
scale_colour_manual(values = c(fresh="green", rotten="red")) +
scale_size_continuous(labels=dollar, range=c(8, 22), name="Box Office")
请添加数据以创建一个。我以前尝试过这样做。关键是,谢谢你指出这一点,我的geom_积分的顺序不对。我可以问一下你是如何得到如此平滑的圆的吗?平滑是因为在mac os上默认情况下,抗锯齿是活动的。假定您可以通过安装Cairo图形设备库,并指定png(…,type=“Cairo”,antialas=“gray”)
在windows或linux上获得类似的结果。我试图在Win7虚拟机上测试它,但我无法使用任何形式的抗锯齿。这是完全随机的,但您介意在R Markdown中运行一段代码吗?我正在准备一份工作档案,但我似乎无法让它发挥作用。[link]我尝试了一下,但是我无法克服这个错误:rotnrate(mikebay\u movies$Film[2])文件中的错误(con,“r”):无法打开连接
。天哪,我也不能。我就此事提出了另一个问题。