当前位置：文江博客话题详情

如何用多行制作时间序列数据？

发布于 2025-01-25 03:44:46 字数 58 浏览 1 评论 0原文

我想及时地绘制甘蔗，椰子和大米的产量。但是我得到了这个输出：

！[我的输出图] [1]

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

嘿嘿嘿 2025-02-01 03:44:46

您的数据应首先为汇总 d，因为它在同一日期和裁剪中具有多个条目，所以我假设您想要sum作为聚合功能。在数据参数中，我使用转换应用iSodate（请参阅其他答案）以及为绘图的pch color 定义数字向量。

a <- aggregate(Yield ~ ., 
               transform(data, Year=ISOdate(Year, 1, 1, 0),
                               clr=as.integer(factor(Crop)) + 1), FUN=sum)

然后，绘图和空基地图，我建议log算术可能适合您的数据。接下来，使用的loop 行在农作物上。最后，放置一个不错的传奇就是这样。

这里是一个基本版本：

plot(Yield ~ Year, a, log='y', type='n')
by(a, a$Crop, \(x) with(x, lines(Yield ~ Year, type='b', col=clr, pch=clr)))
legend('right', legend=unique(data$Crop), col=unique(a$clr), pch=unique(a$clr))

Your data should be aggregated first, since it has multiple entries for the same date and crop, I assume you want sum as aggregation function. In the data argument I use transform to apply ISOdate (see other answer) as well as define a numeric vector for pch and color for plotting.

a <- aggregate(Yield ~ ., 
               transform(data, Year=ISOdate(Year, 1, 1, 0),
                               clr=as.integer(factor(Crop)) + 1), FUN=sum)

Then, plot and empty base plot, I suggest logarithmic might be suitable with you data. Next, loop lines over the crops using by. Finally place a nice legend that's it.

Here a basic version:

plot(Yield ~ Year, a, log='y', type='n')
by(a, a$Crop, \(x) with(x, lines(Yield ~ Year, type='b', col=clr, pch=clr)))
legend('right', legend=unique(data$Crop), col=unique(a$clr), pch=unique(a$clr))