R图重复自身

我试着用R画一张图表

library(readr)
library(dplyr)
library(tidyr)
library(ggplot2)

Ind <- read_csv("Industrial.csv")

Ind1 <- Ind %>%
  select(Period,Year,City,Sub_Market,GeoLevel7,Property_Type,Average_Equivalent_Yield_Prime_Grade) %>%
  filter(Sub_Market == "Sydney Metro" & GeoLevel7 == "South Sydney" & Property_Type == "Distribution Warehouse/Logistics")%>%
  unite(Time,Period,Year,sep=".")

ggplot(data=Ind1, aes(x=Time, y=Average_Equivalent_Yield_Prime_Grade,group=1)) +
  geom_line(color="#aa0022", size=1) +
  geom_point(color="#aa0022", size=1) +
  scale_x_discrete(breaks=c("Q1.1976","Q1.1981","Q1.1986","Q1.1991","Q1.1996","Q1.2001","Q1.2006","Q1.2011","Q1.2016","Q1F.2021","Q1F.2026")) +
  ggtitle("South Sydney Cap Rates") +
  labs(x="", y="(%)") +
  theme(axis.title.y = element_text(size=12, family="Times", color="#666666")) +
  theme(axis.text = element_text(size=12, family="Times")) +
  theme(plot.title = element_text(size=14, family="Times", face="bold", hjust=0, color="#666666")

库（readr）
图书馆（dplyr）
图书馆（tidyr）
图书馆（GG2）
Ind%
过滤器（子市场==“悉尼地铁”和GeoLevel7==“南悉尼”和物业类型==“配送仓库/物流”）%>%
统一（时间、期间、年份、九月
ggplot（数据=Ind1，aes（x=时间，y=平均当量产量优质品位，组=1））+
几何图形线（颜色=“#aa0022”，尺寸=1）+
几何点（颜色=“#aa0022”，大小=1）+
尺度x离散（中断=c（“1976年第一季度”、“1981年第一季度”、“1986年第一季度”、“1991年第一季度”、“1996年第一季度”、“2001年第一季度”、“2006年第一季度”、“2011年第一季度”、“2016年第一季度”、“2021年第一季度”、“2026年第一季度”））+
ggtitle（“南悉尼上限费率”）+
实验室（x=“”，y=“（%）+
主题（axis.title.y=element_text（size=12，family=“Times”，color=“#666666”））+
主题（axis.text=element\u text（size=12，family=“Times”））+
主题（plot.title=element_text（size=14，family=“Times”，face=“bold”，hjust=0，color=“#666666”）

我的问题是，输出是一个似乎重复自身的图表

图表结果的屏幕截图

我正在努力弄清楚为什么会发生这种情况。我已经将数据表写入了一个CSV文件，并在Excel中绘制了它以得到这个结果

Excel图表截图

一些数据不可用，因此Excel中出现了虚线，这是R问题的原因吗

---

Ind1 TIBLE的示例如下。很抱歉，我不确定如何插入数据表或CSV文件。

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

我注意到您没有一年中的四个季度。因此，您需要创建一个完整的数据集。

Time

包含年份和季度。我使用

substr（）

提取了每个季度的字符。为了获得完整的数据集，我使用了

complete（）

。此时，您已经拥有了每年的全部四个季度。出于标记目的，我更新了包含年度和季度信息的

时间

现在您有了一个干净的数据集。您可以绘制一个图形。我简化了您的代码。您需要添加任何您想要完成任务的内容。最后，如果您需要生成示例数据，请使用
dput（）
。查看

库（tidyverse）
多年筹资框架%
完成（时间、嵌套（季度）、填充=列表（平均=NA））%>%
突变（时间=粘贴（时间，季度，sep=“-”））->out
ggplot（数据=输出，aes（x=时间，y=平均值））+
几何点（）+
几何路径（组=1，颜色=“红色”）+
主题（axis.text.x=元素\文本（角度=90，hjust=1））

欢迎使用SO。您能提供最少的样本数据吗？然后，用户可以查看您的案例并为您提供一些支持。谢谢，我添加了数据的屏幕截图。可能最好是表格或csv文件，但不确定如何将其添加到注释框中？您可以键入dput（Ind）吗在R控制台？然后你会看到一些文本。这是你的数据。
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))