在r中绘制日期

我编写了以下plot命令：

Stripped_DATA <- structure(list(Epoch = structure(c(1110925802, 1110929408, 1110933014, 
                                                    1110936616, 1110940217), 
                                                  class = c("POSIXct", "POSIXt"), 
                                                  tzone = "Europe/Helsinki"), 
                                Timediff = c(-1.4653909261659, -1.46512243581845, 
                                             -1.46505141447328, -1.46503418192427,  -1.46464648029912)), 
                           .Names = c("Epoch", "Timediff"), 
                           row.names = c("11070", "21070", "31070", "41070", "51070"), 
                           class = "data.frame")

plot(Stripped_DATA, main = "Maser-69 hourly averages raw data, -3 < 3 microseconds", xlab = "Date", ylab = "microseconds")
ticks <- seq(as.POSIXct("2005-03-16 00:30:02", format = "%F %T"),
             as.POSIXct("2019-04-19 14:29:55", format = "%F %T"), by = "4 months")
labels <- seq(as.Date("2005-03-16"), as.Date("2019-04-19"), by = "4 months")
axis.POSIXct(1, at = ticks, format = "%Y-%m-%d %H", labels = labels)

---

使用您在评论中提供的数据剥离\u数据。注意下面的评论和链接


只有
plot
函数中的
las=2
参数是必需的

Stripped_DATA <- structure(list(Epoch = structure(c(1110925802, 1110929408, 1110933014, 
                                                    1110936616, 1110940217), 
                                                  class = c("POSIXct", "POSIXt"), 
                                                  tzone = "Europe/Helsinki"), 
                                Timediff = c(-1.4653909261659, -1.46512243581845, 
                                             -1.46505141447328, -1.46503418192427, 
                                             -1.46464648029912)), 
                           .Names = c("Epoch", "Timediff"), row.names = c("11070", "21070", 
                                                                          "31070", "41070",
                                                                          "51070"), 
                           class = "data.frame")


plot(Stripped_DATA, main = "Maser-69 hourly averages raw data, -3 < 3 microseconds",
     xlab = "Date", ylab = "microseconds", 
     las = 2) # see
ticks <- seq(as.POSIXct("2005-03-16 00:30:02", format = "%F %T"),
             as.POSIXct("2019-04-19 14:29:55", format = "%F %T"), by = "4 months")
labels <- seq(as.Date("2005-03-16"), as.Date("2019-04-19"), by = "4 months")
axis.POSIXct(1, at = ticks, format = "%Y-%m-%d %H", labels = labels)

Stripped_DATA如果您只想使用刻度，请在使用
xaxt='n'
打印之前从绘图中删除标签，并使用
las=2
旋转绘图标签

   plot(Stripped_DATA, main = "Maser-69 hourly averages raw data, -3 < 3 microseconds",
         xlab = "Date", ylab = "microseconds" , las=2, xaxt="n")
    ticks <- seq(as.POSIXct("2005-03-16 00:30:02", format = "%F %T"),
                 as.POSIXct("2019-04-19 14:29:55", format = "%F %T"), by = "4 months")
    labels <- seq(as.Date("2005-03-16"), as.Date("2019-04-19"), by = "4 months")
axis.POSIXct(1, at = ticks, format = "%Y-%m-%d %H", labels = labels, las=2)

plot（剥离数据，main=“Maser-69小时平均原始数据，-3<3微秒”，
xlab=“日期”，ylab=“微秒”，las=2，xaxt=“n”）
你能分享（一些）你正在使用的数据吗？例如，通过粘贴
dput（head（Stripped_DATA，20））
的结果，您可以添加
las=2
或
3
来旋转绘图中的标签dput（head（Stripped_DATA，5））结果：结构（list）（历元=结构（c（1110925802，1110929408，1110933014，1110936616，1110940217），class=c（“POSIXct”，“POSIXt”），tzone=“欧洲/赫尔辛基”），Timediff=c（-1.4653909261659，-1.46512243581845，-1.465051141447328，-1.46503418192427，-1.4646464802912）），.Names=c（“历元”，“Timediff”），row.Names=c（“11070”，“21070”，“31070”，“41070”，“51070”），class=“data.frame”）对您来说，使用ggplot2软件包会很有趣吗？最好通过添加
dput（）
中的输出来编辑您的问题，而不是在注释中。如何删除或隐藏x轴标题？xlab=NULL不起作用。