ggplot多列（一些列有很多NaN）在r中的一個圖中帶有線和點

這是我的資料的樣子：

dput(head(dfndvi,40))
structure(list(Date = structure(c(16831, 16832, 16833, 16834, 
16835, 16836, 16837, 16838, 16839, 16840, 16841, 16842, 16843, 
16844, 16845, 16846, 16847, 16848, 16849, 16850, 16851, 16852, 
16853, 16854, 16855, 16856, 16857, 16858, 16859, 16860, 16861, 
16862, 16863, 16864, 16865, 16866, 16867, 16868, 16869, 16870
), class = "Date"), meanNDVIU = c(0.502544405962944, 0.466256152892111, 
0.485749936586605, 0.484970598038591, 0.507275825345815, 0.496315118413844, 
NaN, 0.491017758477861, 0.476710534631678, 0.483511980029393, 
NaN, 0.567598408120424, NaN, NaN, NaN, NaN, 0.558695594290863, 
NaN, 0.553513878235882, 0.561027303167483, 0.542377933374519, 
0.525247093862379, 0.525165485789629, 0.494407000216638, NaN, 
0.507730697700615, NaN, NaN, 0.518554179974028, 0.520132928126137, 
0.510478184465593, 0.498813919672763, 0.489482807510878, 0.486741556185618, 
0.54348112575644, 0.492114023452322, 0.487480778562881, 0.481185556976138, 
0.496910310308397, 0.491002252041978), meanNDVIN = c(0.624320155056735, 
0.606096869013536, 0.613930151747554, 0.632728796482024, 0.656657565582441, 
0.648144161096337, NaN, 0.657236231251206, 0.652550004606334, 
0.669463867745522, NaN, 0.682480792008571, NaN, NaN, NaN, NaN, 
0.607992356542685, NaN, 0.610810820063882, 0.592069819101036, 
0.586041169840559, 0.569066342968534, 0.569951894432553, 0.592324925517102, 
NaN, 0.613678505916875, NaN, NaN, 0.583768302989277, 0.580797932718667, 
0.576118007293509, 0.569094248031576, 0.574556169304909, 0.610140182938907, 
0.628893600721365, 0.583113291980683, 0.593022220290993, 0.575916546870008, 
0.588553885295149, 0.58277978069801), meanNDVIh = c(NaN, NaN, 
NaN, 0.632082969388472, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, 
NaN, NaN, 0.51861586348004, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, 
NaN, NaN, NaN, NaN, NaN, 0.502459, NaN, NaN, NaN, NaN, NaN, NaN, NaN, 
NaN, NaN), NDVIL = c(NaN, NaN, NaN, NaN, NaN, 0.677403074, NaN, 
NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, NaN, 
NaN, NaN, 0.576714352, NaN, NaN, NaN, NaN, NaN, NaN, 0.634330472, 
0.671945979, NaN, NaN, NaN, NaN, NaN, NaN, 0.657019867, NaN, 
NaN), NDVIM = c(0.657244197, 0.657075217, 0.660955735, 0.660264045, 
0.666078633, 0.665633253, 0.665328286, 0.656959658, 0.653123241, 
0.676091122, 0.682183486, 0.671482632, 0.669793144, 0.673095324, 
0.661495599, 0.660252492, 0.658850497, 0.657205194, 0.655492781, 
0.65396421, 0.652262689, 0.651273521, 0.648992533, 0.64265213, 
0.638398763, 0.635521954, 0.633858586, 0.62670145, 0.625618812, 
0.617843491, 0.635370809, 0.634577687, 0.630754469, 0.635186296, 
0.629314421, 0.625436647, 0.623103318, 0.621268182, 0.621354269, 
0.619649314)), row.names = 188:227, class = "data.frame")

注意：我在 meanNDVIh 中手動添加了另外 2 個數值。

我想ggplot2在一個圖中使用多列進行繪圖，其中 x = 日期（始終）。每列都應該有圖中顯示的點geom_point和線geom_line。繪圖中的問題，例如，meanNDVIh，由于NaNI的數量只能繪制點而不是線。另外，我假裝將兩者之間的點聯系起來NaN以查看趨勢。

這是我一直在做的：

1st 我嘗試了基本的繪圖 ggplot2

ggplot(NDVI_sat_h_COR,aes(x=Date))   
  geom_line(aes(y=meanNDVIU),colour="blue") 
  geom_point(aes(y=meanNDVIU),colour="blue") 
  geom_line(aes(y=meanNDVIh),colour="red") 
  geom_point(aes(y=meanNDVIh),colour="red")

問題：NaN中間的數字點沒有連接

然后我嘗試：

ggplot(NDVI_sat_h_COR, aes(Date, meanNDVIh)) 
  geom_point() 
  geom_line(data = NDVI_sat_h_COR[!is.nan(NDVI_sat_h_COR$meanNDVIh),])  
  scale_y_continuous(name="NDVI", limits=c(0.2, 0.8))

ggplot(NDVI_sat_h_COR, aes(Date, meanNDVIU)) 
  geom_point() 
  geom_line(data = NDVI_sat_h_COR[!is.nan(NDVI_sat_h_COR$meanNDVIU),])  
  scale_y_continuous(name="NDVI", limits=c(0.2, 0.8))

這解決了我的問題，但現在我無法將它們繪制在一起。

抱歉問了這么長的問題。任何幫助都感激不盡。

uj5u.com熱心網友回復：

我不完全確定這是你想要的，但我試了一下：

使繪圖更容易的要點是將資料整理成一個整潔的結構（每行一個觀察）。因此，我過濾了示例中實際使用的列的資料，pivot_longer()使用 NaN整理資料并洗掉了行（無論如何都不會繪制）。

資料整理好后，您可以在 ggplot 呼叫中指定所有美學，而無需多次呼叫 geoms。

NDVI_sat_h_COR %>%
  select(Date, meanNDVIU, meanNDVIh) %>%
  pivot_longer(cols = c("meanNDVIU", "meanNDVIh")) %>%
  drop_na() %>%
  ggplot(aes(x=Date, y = value, group = name, color = name))   
  geom_line() 
  geom_point()

標籤：r 数据框 ggplot2 南 折线图

上一篇：如何在散點圖中繪制上限和下限？

下一篇：如何通過云效Projex讓專案協作任務不再千篇一律