用ggplot2改变R中散点图的背景颜色

我试图修复这个散点图，所以背景是白色的，并且没有网格......这可能吗？如果这甚至是一个选项，也可以将文本更改为Open Sans。用ggplot2改变R中散点图的背景颜色

data$Aspects <- factor(data$Aspects, 
         levels = c("Key Support Areas", 
         "Strategic Support and Relationship Management", 
         "Sales and Marketing Support", 
         "Google AW Account Management and Product Support")) 
library(ggplot2)  
ggplot(data = data, aes(x = X, y = Y, color = Aspects)) + 
    geom_point(size=3) + 
    scale_colour_manual(values = c("blue", "red4", "purple4", "olivedrab")) + 
    geom_text(aes(label = Label), 
       color = "black", hjust=0.4, vjust=1.5, size = 2.5) + 
    labs(x = "Impact on Overall Satisfaction", y = "Higher Rating")

enter image description here

图像质量更好的版本可以在这里找到： http://s14.postimg.org/z0z3f3yhd/PSAT_2014_Executive_Summary_Chart_Exclude_AGY.png

来源

2014-06-13 user3735087

这可能是在这里处理:(轻微编辑）[删除网格背景]（http://stackoverflow.com/questions/10861773/remove-grid-background-color-and-top-and-right-borders- from-ggplot2） – samhiggins2001

查看此questino字体：http://stackoverflow.com/questions/4094094/modifying-字体在ggplot2 –

您可以关闭网格和背景更改为白色，theme()

ggplot(data.frame(x=1:10, y=cumsum(rnorm(10))), aes(x,y)) + 
    geom_point() + 
    theme(panel.background=element_rect(fill="white"), 
     panel.grid.major = element_blank(), 
     panel.grid.minor = element_blank() 
)

据我所知，改变字体不是一件容易的事。

来源

2014-06-13 22:49:35 MrFlick

非常感谢，我将如何适应我的代码？我不是很有经验...... – user3735087

只需在你已经拥有的“+主题（...）'部分加上 – MrFlick

https://github.com/wch/extrafont –

因此，首先，您的代码不会按原样运行：您没有向我们展示完整的数据帧data。其次，即使是这样，也不会产生产生的情节，因为图例定位不当。

假设你的阴谋被称为ggp，如

ggp <- ggplot(data=data,...) + geom_point(...) + geom_text(...) etc.

，并假设开放Sans字体安装在您（的Windows ...）系统上，那么这将产生你想要的结果：

windowsFonts(OpenSans=windowsFont("Open Sans")) 
ggp + 
    theme(panel.background=element_blank(), 
     panel.grid.major=element_blank(), 
     panel.grid.minor=element_blank(), 
     text=element_text(family="OpenSans"))

来源

2014-06-14 04:07:19 jlhoward

用ggplot2改变R中散点图的背景颜色

回答

相关问题