通过 R 中的选择数据绘制数据

Question

我有一个国家级流量站的大型数据集，如 table 中所示。我的R语言初学。

"CODE"代表流量站名，

"VAL" 以 m^3/秒为单位的 streaflow 值。

每个站点的所有时间序列范围从 1/1/2002 到 31/12/2012。

数据样本

我想通过从整个时间序列中选择一个特定的"CODE"来绘制，以便以线图格式查看整个时间序列，并作为第二步查看以箱线图格式对该站进行的月度分析。没有颜色或其他绘图效果。

/编辑

到目前为止我尝试过的是以下脚本

library("gdata") library("ggplot2") timeseries <- read.csv("C:\Users\G\Documents\R\Projects\...\...\....csv", header = T) summary(timeseries) plot(timeseries$VAL ~ timeseries$CODE, col="light blue", pch = 19 , srt=45) ggplot(table) + geom_point(aes(x= DATE[1:4017], y = VAL [1:4017]))

我为第一个绘图的所有站点绘制了一个复合箱线图

并且 ggplot 不起作用

//scoa解决后的最终编辑数

library("gdata") library("scales") library("ggplot2") timeseries<- read.csv("C:\Users\G\Documents\R\Projects\...\...\......csv", header = T) timeseries$DATE <- as.Date(as.character( timeseries$DATE),format = "%d/%m/%Y") ggplot(data= timeseries[timeseries$CODE == "StationA",]) + geom_point(aes(x= DATE, y = VAL)) + scale_x_date(breaks= date_breaks("1 month"))

Result

Answer 1

您应该将 data.frame 子集化为 data 而不是 aes，确保您的 DATE 变量格式正确，并使用 scale_x_datetime() .

timeseries$DATE <- as.Date(as.character(timeseries$DATE),format = "%d/%m/%Y")

library(scales)

ggplot(data=timeseries[timeseries$CODE == "a",]) + 
    geom_point(aes(x= DATE, y = VAL)) +
    scale_x_date(breaks= date_breaks("1 month"))

您可能希望将 date_breaks() 的默认值更改为 "3 months" 或 "6 months"，因为轴标签难以阅读。

通过 R 中的选择数据绘制数据

Plot data by selection data in R

r

ggplot2