ggplot 中的 plot 分組時間序列

Question

我有一個像下面這樣的數據集

我想為每種作物類型制作 plot 時間序列，而 plot 應該顯示所有 14 個使用線的時間序列，並且線的顏色對於每個組來說應該是唯一的。 融化數據后，我嘗試了 plot，但它不起作用。

我的代碼

meltd = melt(mds,id.vars=c("crop"),value.name="value",
                     variable.name="Date" )
meltd = meltd %>% 
          mutate(across('Date', str_replace, '_', ' ')) %>% 
          mutate(Date = paste0("01 ", str_to_title(Date))) %>% 
          mutate(Date = as.Date(Date, format= "%d %b %y"))


P<- meltd %>%
           ggplot(aes(x=Date, y=value, group = crop, colour = crop))+
            geom_line() +
            labs(y= "VV", x = "Date")

Output 就像上面的例子

根據我的理解，ggplot 正在為一種我不想要的作物類型繪制一個時間序列。 樣本數據鏈接https://docs.google.com/spreadsheets/d/1-9R4boxzhzueu79MDyr0gfcPljWNGq40/edit?usp=sharing&ouid=114652882170449489723&rtpof=true&sd=true

請幫助我解決這個問題。

Answer 1

正如@stefan 所建議的，每組每天都有多次觀察，這會導致出現奇怪的線條。

df %>%
  pivot_longer(-Crop, names_to = "date") %>%
  mutate(across(date, mdy)) %>%
  group_by(Crop, date) %>% 
  summarise(value = mean(value)) %>% # Mean of each date, per group
  ggplot() +
  aes(x = date, y = value, col = Crop) +
  geom_line(linewidth = 1) +
  theme_light()