ggplot2 中去除边框线和背景色的一些操作

ggplot2 中去除边框线和背景色的一些操作library(ggplot2)

######################################################## p1 <- ggplot(diamonds, aes(x = color))

p2 <- p1 + layer(

geom = "bar",

geom_params = list(fill = "blue", colour = "yellow"),

stat = "bin",

stat_params = list(binwidth = 2)

)

# 去除背景色

p_remove_bg <- p2 + theme_bw()

p_remove_bg

# 去除网格线

p_remove_grid <- p2 +

theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) p_remove_grid

# remove border lines

p_remove_border <- p2 +

theme(panel.border = element_blank()) p_remove_border

# 去除背景色和边框

p_remove_two <- p2 + theme(panel.background = element_blank()) p_remove_two

# add axis line 添加坐标轴

p_axis <- p2 + theme(axis.line = element_line(colour = "black")) p_axis

# 合并的操作1

p_all_1 <- p2 + theme(panel.grid.major = element_blank(),

panel.grid.minor = element_blank(),

panel.background = element_blank(),

axis.line = element_line(colour = "black")) p_all_1

# 合并的操作2

p_all_2 <- p2 + theme_bw() + theme(panel.border = element_blank(),

panel.grid.major = element_blank(),

panel.grid.minor = element_blank(),

axis.line = element_line(colour = "black")) p_all_2

效果上来看，肯定是最后一幅图是最好的效果的，大家自己操作一下。