小编Mar*_*mar的帖子

我用ggplot保存情节为.png.背景必须是黑色的,但总是有一个小的白色边缘(只有顶部,左下方;不是右边).

如何删除此保证金？

谢谢!

这是我的代码

library(ggplot2)
require(grid)


dat <- data.frame("xvar"=runif(500, 1, 10), 
              "yvar"=runif(500, 1, 10))

n <- 1
for(i in 1:n){
png(file=paste("green", i, ".png", sep=""), width=400, height=400)
  x <- sample(500, 50)
  i <- ggplot(data=dat[x,], aes(x=xvar, y=yvar))+
geom_point(col="green", size=3,shape=15)+
  theme(panel.background=element_rect(fill="black"), panel.grid.minor=element_blank(),
     panel.grid.major=element_blank(), axis.text.x=element_blank(), axis.text.y=
     element_blank(), axis.title.x=element_blank(), axis.title.y=element_blank(),
    axis.ticks=element_blank(), plot.background=element_rect(fill="black"), 
    panel.margin = unit(c(0,0,0,0), "cm"), plot.margin = unit(c(0,0,0,0), "cm"))+
  scale_x_continuous()
print(i)
dev.off() }

我有两个不同的时间序列来自不同的数据帧,具有不同的不规则格式,但问题是相同的.我想只提取小时,分钟,秒和毫秒.

时代系列看起来像这样:

TS1

08:27:23,445
08:27:24,280
08:27:25,115
...

我试过了

strptime("08:27:23,445", "%H:%M:%OS")
[1] "2013-05-23 08:27:23"

我丢失了毫秒信息并得到了无用的(对我来说)日期信息.

TS2

Fri Apr 19 2013 08:39:41 GMT+0200
Fri Apr 19 2013 08:39:43 GMT+0200
Fri Apr 19 2013 08:39:45 GMT+0200
...

我试过了

strptime("Fri Apr 19 2013 08:39:41 GMT+0200", "%a %b %d %Y %H:%M:%S %Z")
[1] NA

最后,我想将ts1和ts2转换为具有相同格式(毫秒)的新时间序列,例如:

TS1

08:27:23,445

TS2

08:39:41,000

相同的格式对我来说很重要,因为我想稍后使用两个时间序列.例如:匹配时间序列,计算差异等...

谢谢您的帮助!

更新:添加dput

两个数据集都非常长,这就是为什么我试图削减它们.

TS1

structure(list(t = structure(1:9, .Label = c("08:27:23,445", 
                                                   "08:27:24,280", "08:27:25,115", "08:27:25,960", "08:27:26,780", 
                                                   "08:27:27,540", "08:27:28,295", "08:27:29,075", "08:27:29,910"), class = "factor")), .Names = "t", row.names …