R ggplot 将分组数据的图表大小调整为小于屏幕大小的一半

Question

我有一个 SQL 服务器，我从其中导入包含日期列的数据，然后将其转换为小标题，汇总，根据特定变量对数据进行分组，并以日期作为 x 轴绘制它。不分组数据将在全屏上绘制。按颜色对数据进行分组可以正确地为每个组分配单独的颜色，但将绘图的大小重新调整为小于屏幕的一半。我做错了什么？

我从SQL Server导入的数据与使用下面的代码生成的测试数据类似

test_Data

test_Data <- data.frame(region = sample(c("WER", "EAR", "NOR", "KCR"), 40, replace = TRUE),
                        values = sample(100:200, 40, replace = TRUE),
                        date_time = seq.Date(from = as.Date("2024-04-01"), 
                                             as.Date("2024-05-10"), by = "day"))
#color by region
test_Data %>%
  ggplot() +
  geom_line(mapping = aes(date_time, values, colour = region))

因此，当我运行代码时，我得到了分组良好的数据，但绘制在屏幕的一半上。但如果不按颜色分组，我会得到全屏图，但线条未连接。请参阅附图

半屏图

我期望的是全屏绘图，如图所示。

全屏绘图

Answer 1

geom_line() 从颜色（或线型）推断分组。如果不指定颜色，则必须指定组，就像这样

test_Data %>%
  ggplot() +
  geom_line(mapping = aes(date_time, values, group = region))

或

test_Data %>%
  ggplot() +
  geom_line(mapping = aes(date_time, values, linetype = region))