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_remov e_grid <- p2 + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank()) p_remov e_grid # remov e border lines p_remov e_border <- p2 + theme(panel.border = element_blank()) p_remov e_border # 去除背景色和 边框 p_remove_tw o <- p2 + theme(panel.background = element_blank()) p_remove_tw o # add ax is line 添加坐标轴 p_ax is <- p2 + theme(ax is.line = element_line(colou r = "black")) p_ax is # 合并的操作 1 p_all_1 <- p2 + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), panel.backgrou nd = element_blank(), ax is.line = element_line(colou r = "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 效果上来看，肯定是最后一幅图是最好的效果的，大家自己操作一下。
