我尝试使用"#"作为字段分隔符将文件读入数据框.但看起来R无法识别它.为什么我不能使用"#"作为字段分隔符?
谢谢
我发现可以使用以下命令通过cmd.exe程序使用预定义路径打开Windows资源管理器:
explorer PATH
Run Code Online (Sandbox Code Playgroud)
使用以下命令返回R打开Windows资源管理器:
system("explorer", intern=TRUE)
Run Code Online (Sandbox Code Playgroud)
但是,当我指定路径时,R将返回以下警告消息,并且不会在指定路径处打开资源管理器:
> system("explorer C:\\Users\\xxx", intern=TRUE)
character(0)
attr(,"status")
[1] 1
Warning message:
running command 'explorer C:\Users\xxx' had status 1
Run Code Online (Sandbox Code Playgroud)
我引用了\其他R抱怨没有从\ Users识别\ U.
但是,当执行命令时,我们希望double \只替换为一个.
当我将R警告消息中的资源管理器C:\ Users\xxx位复制粘贴到cmd.exe程序时,将在指定的路径中打开资源管理器.
有没有人知道为什么会失败?
我有一套纬度和经度,所以这是动物及时移动的数据.我想要做的是计算转弯角度,即它在每次运动之间转动的角度.所以说我有点1,点2和点3,纬度和经度值对应每个点(动物从点1移动到点2到点3,依此类推),我想计算这3点之间的角度,点2是中间点.我该怎么办?我的操作系统是Windows,我使用R进行分析.
所以这是我的样本数据:
longitude latitude
36.89379547 0.290166977
36.89384037 0.290194109
36.88999724 0.286821044
36.88708721 0.288339411
36.88650313 0.29010232
36.88563203 0.289939416
36.88545224 0.290924863
Run Code Online (Sandbox Code Playgroud)
它们是十进制度
我无法row.names在函数中指定正确的参数read.table()
这是简单的文字:
name sex age height
1 x1 F 18 162
2 x2 M 19 170
3 x3 M 21 178
4 x4 F 22 166
5 x5 F 23 165
Run Code Online (Sandbox Code Playgroud)
当我读到:
data1=read.table('test',head=T,sep='',row.names=T)
invalid 'row.names' specification
data1=read.table('test',head=T,sep='',row.names=T)
invalid 'row.names' specification
Run Code Online (Sandbox Code Playgroud)
其他信息:
> version
_
platform i686-pc-linux-gnu
arch i686
os linux-gnu
system i686, linux-gnu
status
major 2
minor 15.1
year 2012
month 06
day 22
svn rev 59600
language R
version.string R version 2.15.1 (2012-06-22)
nickname Roasted Marshmallows
Run Code Online (Sandbox Code Playgroud) 我确信必须有一个直接的命令,但我已经搜索过,找不到一个.如何从向量中获取预期值?
这是价值观
y <- c(0.05, 0.01, -0.1)
Run Code Online (Sandbox Code Playgroud)
以及他们的可能性
p <- c(0.2, 0.7, 0.1)
Run Code Online (Sandbox Code Playgroud)
我可以E(Y)做到这一点
sum(y*p)
Run Code Online (Sandbox Code Playgroud)
但我认为可能有正确的命令,我找不到它.谢谢!
我有一个包含一些初始值的现有data.frame.我想要做的是创建另一个data.frame,其中第一个data.frame中的每一行都有10个随机采样的行.我也试图以R方式做这个,所以我想避免迭代.
到目前为止,我已经设法将一个函数应用于表中生成一个值的每一行,但是我不知道如何将其扩展为每个应用程序生成10行,然后将结果重新绑定.
到目前为止,这是我的进展:
样本数据:
starts <- structure(list(instance = structure(21:26, .Label = c("big_1",
"big_10", "big_11", "big_12", "big_13", "big_14", "big_15", "big_16",
"big_17", "big_18", "big_19", "big_2", "big_20", "big_3", "big_4",
"big_5", "big_6", "big_7", "big_8", "big_9", "competition01",
"competition02", "competition03", "competition04", "competition05",
"competition06", "competition07", "competition08", "competition09",
"competition10", "competition11", "competition12", "competition13",
"competition14", "competition15", "competition16", "competition17",
"competition18", "competition19", "competition20", "med_1", "med_10",
"med_11", "med_12", "med_13", "med_14", "med_15", "med_16", "med_17",
"med_18", "med_19", "med_2", "med_20", "med_3", "med_4", "med_5",
"med_6", "med_7", "med_8", "med_9", "small_1", "small_10", "small_11",
"small_12", "small_13", "small_14", "small_15", "small_16", "small_17", …Run Code Online (Sandbox Code Playgroud) 我有一个R数据帧(df),其中包括一个因子列Team
Team
Baltimore Orioles
Kansas City Chiefs
...
Run Code Online (Sandbox Code Playgroud)
我只想创建一个新列,昵称,它只是引用姓氏
Nickname
Orioles
Chiefs
Run Code Online (Sandbox Code Playgroud)
作为第一阶段,我尝试分割这样的因素
df$Nickname <- strsplit(as.character(df$Team), " ")
Run Code Online (Sandbox Code Playgroud)
它产生一个我可以参考的字符字段列表
>df$Nickname[1]
[[1]]
[1] "Baltimore" "Orioles"
Run Code Online (Sandbox Code Playgroud)
和
>str(df$Nickname[1])
List of 1
$ : chr [1:2] "Baltimore" "Orioles"
Run Code Online (Sandbox Code Playgroud)
但后来我不知道该怎么办.试图获得长度
长度(DF $昵称[1])
给1 - 这让我感到困惑
假设我有一列数字如下:
Y=
1
2
3
4
5
6
34
32
23
Run Code Online (Sandbox Code Playgroud)
我有一个阵列 R1 = (1,3,7,8)
我想通过使用R1中定义的下标来实现添加Y的元素.我需要生成值的数组喜欢:选自Y开始数的总和[1]〜Y [3]作为我的第一元件,从Y [3]至Y [7]作为我的第二元件,和开始数的总和从Y [7]到Y [8]作为我的第三个元素,依此类推.
我在这里绘制染色体的长度值

没有点的中间区域不包含数据,不应该得到黄土线.如何修改我的代码以阻止该区域的黄土线?数据是连续的但我可以添加行来标记具有一些特殊值的空白区域或添加带有标签的列?但如何在命令中使用它?
我当前的命令:
library(IDPmisc)
# plot settings (edit here)
spanv<-0.05
pointcol1="#E69F00"
pointcol2="#56B4E9"
pointcol3="#009E73"
points=20
linecol="green"
xlabs=paste(onechr, " position", " (loess-span=", spanv, ")", sep="")
data1<-NaRV.omit(data[,c(2,7)]) # keep only x and y for the relevant data
# and clean NA and Inf
ylabs='E / A - ratio'
p1<-ggplot(data1, aes(x=start, y=E.R)) +
ylim(0,5) +
geom_point(shape=points, col=pointcol1, na.rm=T) +
geom_hline(aes(yintercept=1, col=linecol)) +
geom_smooth(method="loess", span=spanv, fullrange=F, se=T, na.rm=T) +
xlab(xlabs) +
ylab(ylabs)
Run Code Online (Sandbox Code Playgroud)