Question

我正在尝试使用R来绘制图表。

Y7

我的问题是输出是一个看似重复的图表。

图表结果的屏幕截图

我正在努力弄清楚为什么会这样。我已将数据表写入CSV文件并在Excel中绘制以获得此结果。

Excel图表屏幕截图

某些数据不可用，因此Excel中的断行，这是R问题的原因吗？

Ind1 tibble的样本如下Image of Ind1 tibble。抱歉，我不确定如何插入数据的表格或CSV文件。

Answer 1

由于这是您的第二篇文章，您在创建示例数据时可能会遇到一些困难。所以我查看了您的图像并创建了一个最小的样本数据。您需要以适合您的方式修改我的代码。

我注意到你每年都没有全部四个季度。因此，您需要创建完整的数据集。 Time包含年份和季度。我使用substr()为每个字符提取了字符。为了获得完整的数据集，我使用了complete()。到这个时候，你每年都有四个季度。出于标注目的，我更新了Time，其中包含年份和季度信息。

现在你有一个干净的数据集。你可以画一个数字。我简化了你的代码。您需要添加任何想要完成任务的内容。最后，如果您需要生成示例数据，请使用dput()。看看this question。

library(tidyverse)

mydf <- data.frame(Time = c("Q1.1977", "Q2.1977", "Q3.1977", "Q4.1977",
                            "Q1.1978", "Q2.1978", "Q3.1978", "Q4.1978",
                            "Q2.2015", "Q3.2015", "Q4.2015"),
                   GeoLevel = "South Sydney",
                   Average = c(NA, NA, NA, NA, NA, 9.63, 9.61, 9.58,
                               6.88, 6.63, 6.38),
                   stringsAsFactors = FALSE)


mutate(mydf,
       Quarter = substr(Time, 1, 2),
       Time = substr(Time, 4, 7)) %>%
complete(Time, nesting(Quarter), fill = list(Average = NA)) %>%
mutate(Time = paste(Time, Quarter, sep = "-")) -> out


ggplot(data = out, aes(x = Time, y = Average)) +
geom_point() +
geom_path(group = 1, color = "red") +
theme(axis.text.x = element_text(angle = 90, hjust = 1))

R Chart重复自己

1 个答案: