小编Str*_*hmi的帖子

我正在做一个产生自动记录数据的实验.该软件生成一个格式的时间戳41149.014850.我想将此十进制时间戳转换为28.08.2012 00:21:23.我怎样才能最优雅地在R中做到这一点？

我尝试使用函数strsplit以及as.Date具有指定原点的times函数,以及函数.但无济于事.我在分裂成戳,我可以用函数访问两个数字的问题as.Date和times.

这是一些演示代码:

myDatetime <- c(41149.004641, # 28.08.2012  00:06:41
41149.009745, # 28.08.2012  00:14:02
41149.014850, # 28.08.2012  00:21:23
41149.019954) # 28.08.2012  00:28:44

## not working out for me
Dat.char <- as.character(myDatetime)
date.split <- strsplit(Dat.char, split = "\\.")
## how to proceed from here, if it is a good way at all

如果您需要有关挑战的更多信息,或者我是否可以更好地提出问题,请告诉我.任何搜索都无济于事.

非常感谢直接帮助或与其他网站/帖子的链接.

我想为很多不同的时间序列制作季节性的箱形图.我希望下面的代码清楚地说明了我想要做的事情.

我现在的问题是,如何以尽可能少的代码行以最优雅的方式完成此操作.我可以使用函数"subset"为每个月创建一个新对象,然后绘制它,但这似乎不是很优雅.我试图使用"拆分"功能,但我不知道,如何从那里开始.

请告诉我,如果我的问题没有明确说明或编辑,以使其更清楚.

非常感谢任何直接帮助或与其他网站/帖子的链接.谢谢你的时间.

这是代码:

## Create Data
Time <- seq(as.Date("2003/8/6"), as.Date("2011/8/5"), by = "2 weeks")
data <- rnorm(209, mean = 15, sd = 1)
DF <- data.frame(Time = Time, Data = data)
DF[,3] <- as.numeric(format(DF$Time, "%m"))
colnames(DF)[3] <- "Month"

## Create subsets
Jan <- subset(DF, Month == 1)
Feb <- subset(DF, Month == 2)
Mar <- subset(DF, Month == 3)
Apr <- subset(DF, Month == 4)

## Create boxplot
months <- c("Jan", "Feb", "Mar", "Apr")
boxplot(Jan$Data, Feb$Data, Mar$Data, Apr$Data, …

我有一组微阵列数据，我想根据附图（用PowerPoint完成）表示它。我尝试了R可用的各种软件包（VennDiagram，venneuler，limma）。但是，我无法按比例绘制数据或显示值。

有谁知道如何做？

可以玩的代码可以在下面找到！

谢谢！

# you might need these:
source("http://www.bioconductor.org/biocLite.R")
biocLite("limma")
library(VennDiagram)
library(limma)
library(venneuler)

# Trial 1: Kind of proportional but difficult to customize for labels and other stuff
su <- venneuler(c(A=162, B=104, C=86, "A&B"=206, "A&C"=112, "B&C"=90 ,"A&B&C"=2433))
plot(su)

# Trial 2: looks nice but not proportional
hw <- c(F,F,F,F,T,T,T,T)
hm <- c(F,F,T,T,F,F,T,T)
hr <- c(F,T,F,T,F,T,F,T)
c4 <- cbind(hw,hm,hr)
e <- vennCounts(c4)
e[1:8,4] <- c(3193,86,104,90,162,112,206,2433)
vennDiagram(e)

我可以使用以下代码创建所需的日期序列:

DateTwoWeeks1 <- seq(as.Date("2010/8/6"), as.Date("2011/8/5"), by = "2 weeks")
DateTwoWeeks2 <- seq(as.Date("2010/8/7"), as.Date("2011/8/5"), by = "2 weeks")
DateTwoWeeks3 <- seq(as.Date("2010/8/8"), as.Date("2011/8/5"), by = "2 weeks")

但是,我想自动创建14个不同开始日期的日期序列.我希望有一个时间序列从2010年8月6日开始,下一个时间序列从7日开始,一直到2010年8月19日.

我该如何自动化？我尝试使用"粘贴"功能,但我无法使用以下代码:

for (i in 6:19){
TimeTwoWeeks[i] <- seq(as.Date(paste("2010/8/", i)), as.Date("2011/8/5"), by = "2 weeks")
}

非常感谢任何直接帮助或与其他网站/帖子的链接.