我正在try 让y-int150和300处的两条水平虚线出现在我的剧情中(S).他们以前出现过,我不知道我做了什么,但他们不再出现了.我没有弄乱代码块本身,所以我想知道我是否删除/更改了情节所依赖的df/包.

# Create labels and limits for week numbers
labels_week_n <- c("W\n1", "W\n2", "W\n3", "W\n4", "W\n5")
limits_week_n <- c(
  "Week 15 of 2016", "Week 16 of 2016", "Week 17 of 2016",
  "Week 18 of 2016", "Week 19 of 2016"
)
# Weekly_moderate_very plot
# for all 33 participants
weekly_moderate_very_p <- 
  weekly_data %>%
  {
    ggplot(.) +
      geom_line(
        aes(
          x = as.factor(week_number), 
          y = weekly_mod_very_m,
          group = id, 
          color = as.factor(id)
          ),
        linejoin = "mitre",
        show.legend = FALSE,
        size = .5
        ) +
      geom_point(
        aes(
          x = as.factor(week_number), 
          y = weekly_mod_very_m, 
          group = id, 
          color = as.factor(id)
          ), 
        show.legend = FALSE, 
        size = 1) +
      labs(
        title = "Moderate/vigorous activity",
        subtitle = "Weekly totals for 33 participants",
        y = "Minutes"
      ) +
      scale_x_discrete(
        name = NULL,
        limits = limits_week_n,
        labels = labels_week_n,
        expand = c(0, 0)
      ) +
      scale_y_continuous(
        breaks = c(0, 150, 300, 450, 600, 750, 900), 
        limits = c(0, 1060)
        ) +
      scale_color_discrete() +
      theme_minimal() +
      geom_hline(yintercept = 150, linetype = "dashed") +
      geom_hline(yintercept = 300, linetype = "dashed") +
      facet_wrap(~id, drop = TRUE, nrow = 3, ncol = 11, scales = "fixed") +
      theme(
        plot.title = element_text(
          margin = margin(5, 5, 5, 0),
          size = 14,
          hjust = 1,
          face = "bold"
        ),
        plot.subtitle = element_text(
          margin = margin(1, 5, 5, 0),
          size = 10,
          hjust = 1,
          face = "italic"
        ),
        axis.title.y = element_text(
          margin = margin(0, 5, 0, 5),
          size = 12
        ),
        panel.spacing.x = unit(.75, "lines")
      )
  }
weekly_moderate_very_p

这会产生以下结果 plot

它过go 是这样的,我希望它再次是这样的: plot

我try 删除/更改线型没有结果,除此之外,我有点不知所措.

SOLVED谢谢大家,我觉得自己太傻了,没有想过要定义线条的 colored颜色 !

推荐答案

没有weekly_data我不能运行你的代码.以下是我会try 的:

地平线就在那里,只是不太明显.改变大小和 colored颜色 可以解决这个问题.

geom_hline(yintercept = 150, linetype = "dashed", size = 2, color = "black") +
geom_hline(yintercept = 300, linetype = "dashed", size = 2, color = "black")

如果size不被接受,则使用linewidth = 2

R相关问答推荐

如何删除多个.CSV文件的行

如果列中存在相同的字符串,则对行值进行总和

根据R中两个变量的两个条件删除带有dspirr的行

根据选中三个复选框中的一个或两个来调整绘图

用相同方法得到不同函数的ROC最优截断值

在连续尺度上转置标签[瀑布图,R]

无法正确设置动态创建的Quarto标注的格式

计算数据帧中指定值之前的行数,仅基于每行之后的future 行,单位为r

用R ggplot2求上、下三角形中两个变量的矩阵热图

TreeNode打印 twig 并为其上色

R -在先前group_by级别汇总时获取最大大小子组的计数

R基于变量组合创建新的指标列

我需要使用ggplot2制作堆叠条形图

访问数据帧中未定义的列时出现R错误

按镜像列值自定义行顺序

如何在访问之前下载的输入时同时上传和处理所有指定的shiny 输入?

使用其他DF中的文件名将列表中的每个元素保存到文件中

在R中添加要打印的垂直线

带查找数据的FCT_REORDER.帧

只有当我在循环的末尾放置一条print语句时,Foreach才会给出预期的输出