在R语言中调整绘图的X轴取值范围及坐标轴、图例标注

核心修改点 #

• 修复原代码绘图数据引用错误：移除plot()中错误传入的原始数据集dta，使用管道传递的处理后数据绘图
• 扩展X轴取值范围：通过plot()函数的xlim参数指定显示区间为1~10
• 自定义坐标轴标题：通过plot()函数的xlab、ylab参数分别设置X、Y轴标题

修改后完整可运行代码 #

library(dplyr)
library(tidyr)
library(ggplot2)
library(lubridate)

df <- structure(
  list(date = c("2021-08-01","2021-08-01","2021-08-01","2021-08-01","2021-08-01",
                "2021-08-02","2021-08-02","2021-08-02","2021-08-02","2021-08-02","2021-08-02"),
       D1 = c(0,1,0,0,5,0,1,0,0,9,4), DR01 = c(2,1,0,0,3,0,1,0,1,7,2), 
       DR02 = c(2,0,0,0,4,2,1,0,1,4,2),  DR03 = c(2,0,0,2,6,2,0,0,1,5,2),
       DR04 = c(2,0,0,5,6,2,0,0,3,7,2),  DR05 = c(2,0,0,5,6,2,0,0,7,7,2), 
       DR06 = c(2,0,0,5,7,2,0,0,7,7,1),  DR07 = c(2,0,0,6,9,2,0,0,7,8,1)), 
  class = "data.frame", row.names = c(NA, -11L))

scatter_date <- function(dt, dta = df) {
  dta %>%
    mutate(date = ymd(date)) %>%
    filter(date == ymd(dt)) %>%
    summarize(across(starts_with("DR"), sum)) %>%
    pivot_longer(everything(), names_pattern = "DR(.+)", values_to = "val") %>%
    mutate(name = as.numeric(name)) %>%
    # 此处添加对应参数实现需求
    plot(xlab = "Days", ylab = "Types", xlim = c(1, 10))
}
scatter_date("2021-08-01")

内容的提问来源于stack exchange，提问作者Antonio