r语言导入ggplot2_R语言 -- ggplot2 学习

菜鸡又来学画图了，菜鸡总共整理了大概一天半

这些当然只是冰山一角，以后遇到其他问题会继续补充，奥利GAY！

原始图：

美化后(自认为)：

library("ggplot2")

# 随便挑个数据集

data("iris")

str(iris)

# 基础版

aa = ggplot(iris, aes(x = Species, y = Sepal.Length)) + geom_boxplot()

# 手动再加个类型

iris$class = rep(c("A","B","C"), 50)

ab = ggplot(iris, aes(x = Species, y = Sepal.Length, color = class))

ab + geom_boxplot()

# 设置box的宽度和去除离群点

ac = ab + stat_boxplot(geom = "errorbar", width=0.6)

ac2 = ac + geom_boxplot(width = 0.6, outlier.shape=NA)

# 设置y轴范围，去除坐标轴边缘多余的线

ad = ac2 + scale_y_continuous(expand = c(0, 0),

limits = c(4, 8),

breaks = seq(4, 8, 0.5))

ae = ad + theme_bw()

# 设置经典的主题；添加主标题和坐标轴标题

af = ae + labs(x = "This is x-title",

y = "This is y-title",

title = "This is title",

subtitle = "This is subtitle")

af2 = af + theme(plot.title = element_text(size = 25,

color = "#E90090",

face = "bold",

hjust = 0.5),

plot.subtitle = element_text(size = 15,

color = "#00B6E9",

face = "italic",

hjust = 0.5))

# 设置坐标轴标题颜色、大小、加粗、线体

ag = af2 + theme(axis.title.x = element_text(color = "black",

size = 15,

face = "bold",

vjust = -5),

axis.title.y = element_text(color = "black",

size = 15,

face = "bold"))

# 调整画布大小

ag2 = ag + theme(plot.margin=unit(rep(0.2, 4), "inch"))

# 设置坐标轴标签倾斜方向，大小、颜色

ah

hjust = 1,

colour = "#3D3D3D",

size = 15),

axis.text.y = element_text(angle = 30,

hjust = 1,

colour = "#3D3D3D",

size = 15))

# # 清除网格

ai = ah + theme(panel.grid.major = element_blank(),

panel.grid.minor = element_blank(),

panel.background = element_blank(),

# axis.line = element_line(colour = "black"),

panel.border = element_rect(colour = "black", fill=NA))

# 隐藏图例

ai + theme(legend.position = "none")

# 修改图例标题内容、图例标签名称

# 自定义fill的颜色

ak = ai + scale_color_manual(values=c("#E90B91", "#E88C00", "#231FEC"),

name="My legend",

breaks=c("C", "B", "A"),

labels=c("Key_C", "Key_B", "Key_A"))

# 修改图例标题样式

al = ak + theme(legend.title=element_text(size=15,

colour = "#8100A9",

angle = 45,

hjust = 0.4,

vjust = 0.4))

# 隐藏图例标题

al2 = al + theme(legend.title=element_blank())

# 修改图例标签样式

am = al2 + theme(legend.text = element_text(colour = "#F7772E",

angle = 45,

size=13,

# hjust = -1.5,

vjust = 0.4,

face="bold"))

# 设置legend边框

am + theme(legend.background =

element_rect(

fill = NA,

size = 0.5,

linetype = "dotted",

color = "black"

)

)

# 去除key背景

am2 = am + theme(legend.key =

element_rect(

fill = NA,

size = 30

)

)

# 修改图例key大小

an = am2 + theme(legend.key.width=unit(0.4,"inches"),

legend.key.height=unit(0.4,"inches"))

# 修改图例方向、位置

ao = an + theme(legend.direction = "horizontal",

legend.position = c(0.27, 0.8))

# 添加抖动的散点图，但是如何让散点图分布在对应箱线图内呢？

ap = ao + geom_jitter(

aes(color = class),

position = position_jitter(w = 0.1, h = 0.05),

size = 1,

alpha = 0.4

)

# 调整X轴标题位置

aq = ao + theme(axis.title.x = element_text(vjust = -2))

添加主次ticks

如何解决文字溢出问题