这只是一个RStudio接口问题:
当向后滚动控制台查看我的工作和输出时,我只能向后滚动.有没有办法打开控制台并回滚我所做的一切?
有时我想检查一个很长的列表的结果,或者我忘记在脚本框而不是控制台中编写代码,并且想要向后滚动以查看它.
干杯,
如何将tapply命令与'not in'逻辑结合起来?
目标:获得每个物种的中位萼片长度.
tapply(iris$Sepal.Length, iris$Species, median)
Run Code Online (Sandbox Code Playgroud)
约束:删除花瓣宽度为1.3和1.5的条目.
!iris$Petal.Width %in% c('1.3', '1.5')
Run Code Online (Sandbox Code Playgroud)
尝试:
tapply(iris$Sepal.Length, iris$Species, median[!iris$Petal.Width %in% c('1.3', '1.5')])
Run Code Online (Sandbox Code Playgroud)
结果:错误消息'类型'对象'的对象'不是子集表'.
---
我在这里使用iris数据集的尝试是我自己的数据集的替代演示.我使用自己的数据集尝试了相同的方法并收到了相同的错误消息.我想我的语法有问题.它是什么?
如何在R Studio中的tapply()中嵌入一个分位数()?
鉴于:
tapply(data$x,data$y, quantile)
Run Code Online (Sandbox Code Playgroud)
这可行,但它提供标准的quin-tiles.我想选择自定义百分位数.如何在上面的脚本行中加入这样的内容(如下所示)?
quantile(data$x, c(0.1,.2,.8,0.9), na.rm=TRUE)
Run Code Online (Sandbox Code Playgroud)
当我尝试合并这些时,我收到错误消息"match.fun(FUN)... not a function"
有任何想法吗?谢谢,
如何将回归线添加到散点图矩阵?我有以下脚本:
NewNEMSIS = read.csv("NewNEMSIS.csv")
library(gclus)
newmatrix = NewNEMSIS[,2:5]
newmatrix.r = abs(cor(newmatrix))
newmatrix.col = dmat.color(newmatrix.r)
area = NewNEMSIS$area
cpairs(newmatrix[which(area=="A"),c('Response','SceneToPatient','TotalScene','TotalCall')], panel.colors=newmatrix.col, gap=.5, main="Scatterplot Matrix of City A Times", ylim=c(0,60), xlim=c(0,60), na.omit=TRUE, )
Run Code Online (Sandbox Code Playgroud)
如何在将这些散点图保持为矩阵形式的同时向这些散点图添加样条曲线或倾斜回归线?谢谢!
=和之间有什么区别==?我找到了双等号将允许我的脚本运行而一个等号产生错误消息的情况.我何时应该使用==而不是=?
我试图迭代一组海龟,并为每个海龟分配不同的随机速度。当我尝试使用:时foreach turtles [ ... ],我收到一条错误消息,指出“无法迭代代理集”。我知道我可以ask将所有海龟设置为相同,但我想让海龟以不同的速度移动。
如何合适地合并R中的hist()和tapply()函数,以获得数据子集的直方图?当我使用标准的tapply()公式尝试这个时tapply(X, INDEX, FUN),我成功地获得了每个数据子集的值输出,但我只获得了一个标题为"直方图X [[4L]]"的直方图.如何为每个子集获取单独的直方图?谢谢,
输入:
data(iris)
tapply(iris$Sepal.Length, iris$Species, mean)
tapply(iris$Sepal.Length, iris$Species, median)
Run Code Online (Sandbox Code Playgroud)
期望的输出:显示以下内容的数据集
#setosa versicolor virginica
#5.006 5.936 6.588
#5.0 5.9 6.5
Run Code Online (Sandbox Code Playgroud)
创建包含各种tapply()输出的新单个数据集的最佳方法是什么?