Rstudio图，如何在图形上适配图例和轴标签

library(ggplot2)

# 创建数据集
data <- data.frame(x = c(1, 2, 3, 4, 5), y = c(2, 4, 6, 8, 10), group = c("A", "A", "B", "B", "C"))

# 创建散点图
ggplot(data, aes(x = x, y = y, color = group)) +
  geom_point() +
  labs(color = "Group")  # 设置图例标题

# 适配图例位置
# 可以使用theme()函数中的legend.position参数来设置图例的位置，常用的取值有"none"（不显示图例）、"top"、"bottom"、"left"、"right"等。
ggplot(data, aes(x = x, y = y, color = group)) +
  geom_point() +
  theme(legend.position = "top")  # 将图例放置在图形的上方

library(ggplot2)

# 创建数据集
data <- data.frame(x = c(1, 2, 3, 4, 5), y = c(2, 4, 6, 8, 10))

# 创建折线图
ggplot(data, aes(x = x, y = y)) +
  geom_line() +
  labs(x = "X轴", y = "Y轴")  # 设置轴标签

# 适配轴标签样式
# 可以使用theme()函数中的axis.text参数来设置轴标签的样式，如字体、大小、颜色等。
ggplot(data, aes(x = x, y = y)) +
  geom_line() +
  theme(axis.text = element_text(color = "red", size = 12))  # 设置轴标签为红色、字体大小为12

# 适配轴标签格式
# 可以使用scale_xxx()和scale_yyy()函数来设置轴标签的格式，如日期格式、百分比格式等。
ggplot(data, aes(x = x, y = y)) +
  geom_line() +
  scale_x_continuous(labels = scales::percent)  # 设置X轴标签为百分比格式