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

Question

我正在尝试修复此散点图，因此背景为白色，并且没有网格......这可能吗？如果甚至是一个选项，也将文本更改为Open Sans。

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")

此处提供更高质量的图像版本： http://s14.postimg.org/z0z3f3yhd/PSAT_2014_Executive_Summary_Chart_Exclude_AGY.png

Answer 1

您可以使用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()
)

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

Answer 2

首先，您的代码不会按原样运行：您没有向我们展示完整的数据框data。其次，即使它确实如此，也不会 生成你所显示的情节，因为传说定位不正确。

假设您的情节被称为ggp，如

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

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

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"))