首頁(yè) 猿問在同一張圖上使用ggplot...

在同一張圖上使用ggplot 2將兩個(gè)變量繪制成線條

R語(yǔ)言

飲歌長(zhǎng)嘯 2019-06-04 16:39:36

在同一張圖上使用ggplot 2將兩個(gè)變量繪制成線條這是一個(gè)很新的問題，但說(shuō)我有這樣的數(shù)據(jù)：test_data <- data.frame( var0 = 100 + c(0, cumsum(runif(49, -20, 20))), var1 = 150 + c(0, cumsum(runif(49, -10, 10))), date = seq(as.Date("2002-01-01"), by="1 month", length.out=100) )如何繪制兩個(gè)時(shí)間序列？var0和var1在同一張圖上date在x軸上，使用ggplot2？加分var0和var1不同的顏色，可以包括一個(gè)傳說(shuō)！我相信這很簡(jiǎn)單，但我找不到任何例子。

查看完整描述

3 回答

犯罪嫌疑人X

TA貢獻(xiàn)2080條經(jīng)驗(yàn) 獲得超4個(gè)贊

對(duì)于少量變量，您可以自己手動(dòng)構(gòu)建繪圖：

ggplot(test_data, aes(date)) + 
  geom_line(aes(y = var0, colour = "var0")) + 
  geom_line(aes(y = var1, colour = "var1"))

反對(duì) 回復(fù) 2019-06-04

泛舟湖上清波郎朗

TA貢獻(xiàn)1818條經(jīng)驗(yàn) 獲得超3個(gè)贊

一般方法是將數(shù)據(jù)轉(zhuǎn)換為長(zhǎng)格式(使用melt()從包裝reshape或reshape2)或gather()從tidyr一攬子：

library("reshape2")library("ggplot2")test_data_long <- melt(test_data, id="date")  # convert to long formatggplot(data=test_data_long,
       aes(x=date, y=value, colour=variable)) +
       geom_line()

反對(duì) 回復(fù) 2019-06-04