library(reshape2)
library(ggplot2)
library(plyr)
library(gridExtra)
Amendment Feldjahre ROC_twenty_year
GW(ten) 1 100
GW(ten) 2 53,53
GW(ten) 3 147,42
GW(ten) 4 96,43
GW(ten) 5 186,26
GW(ten) 6 131,60
GW(ten) 7 218,10
GW(ten) 8 160,43
GW(ten) 9 244,21
GW(ten) 10 184,07
GW(ten) 11 265,61
GW(ten) 12 203,44
GW(ten) 13 283,15
GW(ten) 14 219,33
GW(ten) 15 297,53
GW(ten) 16 232,35
GW(ten) 17 309,32
GW(ten) 18 243,02
GW(ten) 19 318,99
GW(ten) 20 251,77
GW(one) 1 100
GW(one) 2 53,53
GW(one) 3 47,42
GW(one) 4 42,90
GW(one) 5 38,84
GW(one) 6 35,17
GW(one) 7 31,84
GW(one) 8 28,83
GW(one) 9 26,10
GW(one) 10 23,64
GW(one) 11 21,40
GW(one) 12 19,38
GW(one) 13 17,54
GW(one) 14 15,88
GW(one) 15 14,38
GW(one) 16 13,02
GW(one) 17 11,79
GW(one) 18 10,67
GW(one) 19 9,67
GW(one) 20 8,75
y<-data$ROC_twenty_year
x<-data$Feldjahre
ggplot(data=data, aes(x, y, group = 1))
geom_line(size = 1, alpha =.5, linetype="solid")
geom_point(aes(), size=4)
theme_minimal() theme_bw(base_size=20)
您好，我想在具有正常 y 軸的圖上制作兩條線，但我的圖看起來像這樣。也就是說，y 軸編號不一致，線融合了所有點。誰能告訴我這里有什么問題？
uj5u.com熱心網友回復：
我猜您應該按修正對行進行分組，并將字符列更改為數字
data$ROC_twenty_year <- as.numeric(sub(",", "\\.", data$ROC_twenty_year))
ggplot(data=data, aes(Feldjahre, ROC_twenty_year, colour = Amendment))
geom_line(size = 1, alpha = 0.5)
geom_point(size = 4)
theme_minimal()
theme_bw(base_size = 20)
uj5u.com熱心網友回復：
data <- mutate(data, ROC_twenty_year:=as.numeric(gsub(',',".",ROC_twenty_year)))
ggplot(data=data, aes(Feldjare, ROC_twenty_year))
geom_line(size = 1, alpha =.5, linetype="solid")
geom_point(aes(), size=4)
theme_minimal() theme_bw(base_size=20)
如果您想為每個修正案單獨行，然后添加group=Amendment; 您當前的代碼group=1不是必需的，因為默認情況下將其視為單個組。
uj5u.com熱心網友回復：
為什么 ROC_twenty_year 中有逗號？我認為該變數沒有被讀取為數值。如果逗號是小數，請使用“。” 代替 ”，”。
您可以按如下方式創建折線圖：
ggplot(data=data, aes(x, y, group = Amendment))
geom_line(size = 1, alpha =.5, linetype="solid")
geom_point(aes(), size=4)
theme_minimal() theme_bw(base_size=20)
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/438211.html