我有以下数据框架
dat <- data.frame(x=c(1,2,3,3,2,1), y=c(3,4,4,5,2,5))
现在我想得到第三列,将y行值除以聚合的y值(基于列x中的唯一值).那么,我得到第1行如下:1,3,0.375; 0.375计算为3 /(5 + 3).
我对R比较新,我希望你能帮助我.谢谢!
我正在尝试使用 Rselenium 抓取网站。但是我收到一个错误：
Error: checkForServer is now defunct. Users in future can find the function in
file.path(find.package("RSelenium"), "examples/serverUtils"). The
recommended way to run a selenium server is via Docker. Alternatively
see the RSelenium::rsDriver function.
我的 chrome 升级到 58 版，moxilla 升级到 45 版，rselenium 以前可以工作，但我不确定发生了什么，请帮助大家。
我是R新手.在将样本放入随机森林之前,我想做一些异常值清理和从0到1的过度扩展.
g<-c(1000,60,50,60,50,40,50,60,70,60,40,70,50,60,50,70,10)
如果我从0 - 1进行简单的缩放,结果将是:
> round((g - min(g))/abs(max(g) - min(g)),1)
[1] 1.0 0.1 0.0 0.1 0.0 0.0 0.0 0.1 0.1 0.1 0.0 0.1 0.0 0.1 0.0 0.1 0.0
所以我的想法是将每列大于0.95分位数的值替换为小于0.95分位数的下一个值 - 对于0.05分位数则相同.
所以预先缩放的结果将是:
g<-c(**70**,60,50,60,50,40,50,60,70,60,40,70,50,60,50,70,**40**)
和缩放:
> round((g - min(g))/abs(max(g) - min(g)),1)
[1] 1.0 0.7 0.3 0.7 0.3 0.0 0.3 0.7 1.0 0.7 0.0 1.0 0.3 0.7 0.3 1.0 0.0
我需要这个公式用于整个数据帧,因此R中的功能实现应该是这样的:
> apply(c, 2, function(x) x[x`<quantile(x, 0.95)]`<-max(x[x, ... max without the quantile(x, 0.95))
有人可以帮忙吗？
旁边说:如果有直接完成这项工作的功能,请告诉我.我已签出cut和cut2.cut由于没有独特的休息而失败; …
我想获取数据框中城市的经度/纬度数据,并在我的框架中添加2列.我是R的新手,我不知道该怎么做.有人可以帮我这个
我的框架:
> data <- read.xlsx("example_city.xlsx", 1)
> data
City Country
1 Stockholm Sweden
2 Oslo Norway
3 Rome Italy
4 Rome Italy
5 Stockholm Sweden
6 Stockholm Sweden
7 Paris France
8 Paris France
9 Hamburg Germany
10 Paris France
11 Paris France
这是一个例子:
set.seed(123)
data<-data.frame(X=rep(letters[1:3], each=4),Y=sample(1:12,12),Z=sample(1:100, 12))
data[data==3]<-NA
我要意识到的是通过忽略s 来选择X最小的唯一行:YNA
a 4 68
b 1 4
c 2 64
最好的方法是什么？
我有以下数据框:
> head(my[,1:2])
Time TD_Wait
96 18:24:45.776 12442
97 18:24:53.798 26799
1944 19:10:32.963 14423
1945 19:10:34.709 13592
1946 19:10:38.056 13457
1947 19:10:38.281 14063
> str(my)
'data.frame': 25007 obs. of 2 variables:
$ Time : Factor w/ 253251 levels "00:00:00.586",..: 27991 28001 33296 33306 33319 33320 33341 33363 33383 33392 ...
$ TD_Wait: int 12442 26799 14423 13592 13457 14063 11717 10026 10590 19372 ...
我尝试时无法格式化X轴上的时间标签
ggplot(data=my, aes(x=my$Time,y=TD_Wait/1000)) + geom_point()
因为所有时间都相互重叠.我很困惑如何处理这个问题.我尝试改变时间因素但却无处可去.
有没有办法在24小时内每小时清楚地显示X轴上的时间标签？
我真的是Rstudio的新手，所以我希望有人能帮助我。所以我有这段代码：
x = 1:5
alpha = 1
beta = 1.5
betaD = 0.1
s = 1
sa = 0.2
sb = 0.2
N = 10
grp = factor(rep(c("Control", "Treatment"), c(N,N)))
for(i in 1:(2*N)) {
ai = rnorm(1, 0, sa)
bi = rnorm(1, 0, sb)
intercept = alpha+ai
slope = beta + bi + ifelse(grp[i]=="Treatment", betaD, 0.0)
y = intercept+ slope*x + rnorm(length(x), 0, s)
tmp = data.frame(subject=i, x=x, y=y, a=ai, b=bi, group=grp[i])
if(i==1) dataset = tmp
else dataset = rbind(dataset, …我有不同长度的矢量.例如:
df1
[1] 1 95 5 2 135 4 3 135 4 4 135 4 5 135 4 6 135 4
df2
[1] 1 70 3 2 110 4 3 112 4
我正在尝试在R中编写一个脚本,以便让任何向量进入函数或for循环,它返回一个三列的数据帧.因此,每个输入向量的单独数据帧.每个向量是三的倍数(因此,三列).在编写函数方面我对R很新,似乎无法解决这个问题.这是我的尝试:
newdf = c()
ld <- length(df1)
ld_mult <- length(df1)/3
ld_seq <- seq(from=1,to=ld,by=3)
ld_seq2 < ld_seq +2
for (i in 1:ld_mult) {
newdf[i,] <- df1[ld_seq[i]:ld_seq2[i]]
}
我想要的输出df1将是:
1 95 5
2 135 4
3 135 4
4 135 4
5 135 4
6 135 4
我正在尝试使用rMarkdown中的相同模板生成大约50个报告。我不想每次都更改输入文件的名称，并且想为输出文件选择不同的名称。
有什么办法可以自动执行此过程？
谢谢。
> Error in loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()),\n> versionCheck = vI[[j]]) : namespace \xe2\x80\x98pbkrtest\xe2\x80\x99 0.4-2 is being\n> loaded, but >= 0.4.4 is required \n> Error: package or namespace load\n> failed for \xe2\x80\x98caret\xe2\x80\x99\nCaret 工作得很好，直到我尝试加载 Rcpp，它把一切搞乱了。
\n\n我在答案中搜索了插入符号的类似问题，但发布的解决方案似乎不适用于我的。我跟着：
\n\ninstall.packages("caret", dependencies = TRUE) \n但这没有用。
\n