用R语言ggplot2画一张散点图xy轴用百分数

以下是一个示例代码：

library(ggplot2)

# 创建数据框
df <- data.frame(x = runif(50), y = runif(50))

# 转换为百分数
df$x <- paste0(round(df$x * 100), "%")
df$y <- paste0(round(df$y * 100), "%")

# 绘制散点图
ggplot(df, aes(x = x, y = y)) +
  geom_point() +
  scale_x_discrete(labels = function(x) str_replace_all(x, "%", "")) +
  scale_y_discrete(labels = function(y) str_replace_all(y, "%", "")) +
  labs(x = "X轴", y = "Y轴")

这会生成一个散点图，其中 x 和 y 轴都用百分数标记。请注意，我们使用 scale_x_discrete() 和 scale_y_discrete() 函数来设置轴标签，并使用 str_replace_all() 函数删除百分号。