我有一个文本文件,我这样读:
file=read.table("file.txt",skip="1",sep="")
该文本文件的第一行包含有关该文件的信息,然后是观察结果.
我想提取第一行并将其写入新的文本文件.
我有这些数据:
dat=list(structure(list(Group.1 = structure(3:4, .Label = c("A","B", "C", "D", "E", "F"), class = "factor"), Pr1 = c(65, 75)), row.names = c(NA, -2L), class = "data.frame"),NULL, structure(list( Group.1 = structure(3:4, .Label = c("A","B", "C", "D", "E", "F"), class = "factor"), Pr1 = c(81,4)), row.names = c(NA,-2L), class = "data.frame"))
我想使用组合使用 bind_rows(dat)但保持索引号作为可变输出包含Type([[1]] and [[3]])
type Group.1 Pr1
1 1 C 65
2 1 D 75
3 3 C 81
4 3 D 4
我有一些数据。
library(reshape2)
library(ggplot2)
df = data.frame(cat = LETTERS[1:6], VAR1 = runif(6), VAR2 = runif(6), VAR3 = runif(6), VAR4 = runif(6))
df_melted = melt(df, id.vars = 'cat')
ggplot(df_melted, aes(x = variable, y = value)) + geom_line(aes(color = cat, group = cat))
我需要最后绘制 A 和 B（因此它们位于其他线条上方）并且线条类型为实线。其他“猫”的线型应该是虚线。
我有自 1970-01-01 00:00:00 UTC 以来的天数列，我想将其转换为日期和时间 UTC。
我试过这个：
z <- Sys.time()
j=floor(unclass(z)/86400) # the number of days since 1970-01-01 (UTC)
as.POSIXct(j, origin = "1970-01-01")
[1] "1970-01-01 05:53:22 CET"
但这是不正确的。任何想法？
b=c(1,4,3,NA)
c=c(NA,4,3,8)
res=(b+c)/2
NA 4 3 NA
你可以看到每当我们得到NA返回的结果时NA.我想计算b and c两者之间的平均值,如果两者都有值,但是如果两者b or c都有NA,则只返回值b or c.期望的结果将是:
res
1 4 3 8
我正在进行一些分析,无论什么时候NA发现,我的循环停止,一个接一个.所以我想说,如果我的价值不是NA在循环中继续前进.如果它NA只是忽略它并去下一个.甚至回来NA.我试过这个:
x=c(5,4,6,4,2,1,5,NA)
if (x != NA){
y=x+2}
Error in if (x != NA) { : missing value where TRUE/FALSE needed
1)
x=2;y=3
mean(x,y)
#[1] 2
我很惊讶为什么2.它应该是2.5!
2)
x=c(2,5,NA)
y=c(3,NA,NA)
mean(x,y,na.rm=TRUE)
Error in mean.default(x, y, na.rm = TRUE) :
'trim' must be numeric of length one
我想计算之间的平均x和y.当有NA,只要把其他值.
期望的输出:
2.5 5 NA