我试图在15岁和300岁时达到两条横向破碎线,以在我的土地上展示。 他们正在前台,我不敢肯定我所做的事情,但不再显示。 我没有听说过密码,所以我很想知道,我是否删除/更改了一块地块依赖的 d/包裹。
# Create labels and limits for week numbers
labels_week_n <- c("W
1", "W
2", "W
3", "W
4", "W
5")
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
This yields the following plot
It used to look like this, and that s what I would like it to look like again: plot
我试图去除/改变这一类线,但结果不及损失的那类。
SOLVED Thanks all, I feel so silly for not thinking to define the line color!