R绘制年度数据并在图表末尾重复“一月”

Question

我对R相当陌生，正在尝试绘制一些支出数据。我从excel中读取数据，然后对日期进行了一些操作

data <- read.csv("Spending2019.csv", header = T)

#converts time so R can use the dates

strdate <- strptime(data$DATE,"%m/%d/%Y")
newdate <- cbind(data,strdate)    
finaldata <- newdate[order(strdate),]

这可能不是最有效的方法，但它可以使我到达：）

这是我的finaldata数据帧的前四行的相关列

dput(droplevels(finaldata[1:4,c(5,7)]))
structure(list(AMOUNT = c(25.13, 14.96, 43.22, 18.43), strdate = structure(c(1546578000, 
1546750800, 1547010000, 1547010000), class = c("POSIXct", "POSIXt"
), tzone = "")), row.names = c(NA, 4L), class = "data.frame")

完整的数据集包含146行，日期范围为1/4/2019至12/30/2019 然后绘制数据

plot(finaldata$strdate,finaldata$AMOUNT, xlab = "Month", ylab = "Amount Spent")

我得到这个情节

这对我起步很好，除了为什么JAN会在最右端重复？我尝试过各种形式的xlim，但似乎无法解决它。