R 我想画一年一个月的散点图

我有首尔的nonacc（不包括事故的总死亡率）数据及其日期数据。这是数据样本。data1具有非抄送数据和日期数据

head(data1$date)
[1] "2000-01-01" "2000-01-02" "2000-01-03" "2000-01-04" "2000-01-05"
[6] "2000-01-06"

tail(data1$date)
[1] "2007-12-26" "2007-12-27" "2007-12-28" "2007-12-29" "2007-12-30"
[6] "2007-12-31"

head(seoul$nonacc)
[1] 139 144 130 149 143 136

我想把date和Nonac之间的关联画成散点图。但我想画一个散点图，除以年份和月份

所以我尝试了这个，但是他们的结果是一样的

这是我尝试的月份散点图

 plot(seoul$date,seoul$nonacc, 
      xlab="Date", ylab="Nonaccidental Mortality", 
      xaxt="n")
 seq(as.Date("2000-01-01"), as.Date("2002-12-31"),"day")
 x.at <- seq(as.Date("2000-01-01"), as.Date("2007-12-31"),"month")
 xname = seq(2000, 2007, 1)
 axis(side=1, at=x.at, labels=x.at, las=1)

 plot(seoul$date,seoul$nonacc, 
      xlab="Date", ylab="Nonaccidental Mortality", 
      xaxt="n")
 seq(as.Date("2000-01-01"), as.Date("2002-12-31"),"day")
 x.at <- seq(as.Date("2000-01-01"), as.Date("2007-12-31"),"year")
 xname = seq(2000, 2007, 1)
 axis(side=1, at=x.at, labels=x.at, las=1)

plot（首尔$date，首尔$nonac，
xlab=“日期”，ylab=“非意外死亡率”，
xaxt=“n”）
序号（截止日期（“2000-01-01”）、截止日期（“2002-12-31”）、“日期”）
x、 在处，如果您同意使用ggplot2，则可以使用
scale\u x\u date
在x轴上格式化断点

library(ggplot2)

load("~/Downloads/mort.rda")
seoul <- subset(mort, cname=="sl")

# plot with months as major breaks
# limit data to year 2000
seoul_2001 <- subset(seoul, date >= "2000-01-01" & date < "2001-01-01")
ggplot(seoul_2001, aes(x=date, y=nonacc)) +
  geom_point() +
  scale_x_date(date_breaks="1 month", date_labels="%b")

# plot with year as major breaks and month as minor
ggplot(seoul, aes(x=date, y=nonacc)) +
  geom_point() +
  scale_x_date(date_breaks = "1 year", date_minor_breaks = "1 month", date_labels="%Y")

库（ggplot2）
加载（“~/Downloads/mort.rda”）
如果你把代码缩进4个空格，它的格式就会正确。还可以使用
dput（x）
显示
x
以获得再现性。谢谢。下次，我会试试看。祝您今天过得愉快！非常感谢。虽然我还没有学习ggplot2，但我将尝试使用您的代码。我希望你的每一天都是完美的：）