Tag: r

dplyr可以汇总几个variables而不列出每个variables吗？

dplyr是惊人的快，但我不知道我是否缺less的东西：是否有可能总结了几个variables。 例如： library(dplyr) library(reshape2) (df=dput(structure(list(sex = structure(c(1L, 1L, 2L, 2L), .Label = c("boy", "girl"), class = "factor"), age = c(52L, 58L, 40L, 62L), bmi = c(25L, 23L, 30L, 26L), chol = c(187L, 220L, 190L, 204L)), .Names = c("sex", "age", "bmi", "chol"), row.names = c(NA, -4L), class = "data.frame"))) sex age bmi chol 1 boy 52 […]

在R data.table计算中使用前一行中的值

我想在一个data.table中创build一个新的列，根据一列的当前值和另一列的前一个值来计算。 是否有可能访问以前的行？ 例如： > DT <- data.table(A=1:5, B=1:5*10, C=1:5*100) > DT ABC 1: 1 10 100 2: 2 20 200 3: 3 30 300 4: 4 40 400 5: 5 50 500 > DT[, D := C + BPreviousRow] # What is the correct code here? 正确的答案应该是 > DT ABCD 1: 1 10 100 NA […]

有条件地删除R的dataframe行

可能重复： 从数据框中删除特定的行 使用R，我怎样才能把下面的逻辑写入数据框：IF列A = B，列E = 0，删除行 提前致谢！

太阳的位置，一天的时间，经度和纬度

这个问题在三年前已经被问过了。 有一个答案，但我发现在解决scheme中的一个小故障。 下面的代码在R.我已经将它移植到另一种语言，但是已经在R中直接testing了原始代码，以确保问题不在我的移植中。 sunPosition <- function(year, month, day, hour=12, min=0, sec=0, lat=46.5, long=6.5) { twopi <- 2 * pi deg2rad <- pi / 180 # Get day of the year, eg Feb 1 = 32, Mar 1 = 61 on leap years month.days <- c(0,31,28,31,30,31,30,31,31,30,31,30) day <- day + cumsum(month.days)[month] leapdays <- year %% 4 […]

将命令行parameter passing给R CMD BATCH

我一直在使用R CMD BATCH my_script.R从一个terminal执行一个R脚本。 我现在正想让这个命令传递一个参数，但是在解决这个问题的时候遇到了一些问题。 如果我执行R CMD BATCH my_script.R blabla则blabla将成为输出文件，而不是被解释为正在执行的R脚本可用的参数。 我已经试过Rscript my_script.R blabla似乎正确地作为parameter passing，但是然后我没有得到R CMD BATCH （我想.Rout文件）的my_script.Rout输出文件。 虽然我可以redirect到Rscript调用的输出到我select的文件名，但我不会以R CMD BATCH在.Rout文件中的方式获取文件中包含的Rinput命令。 因此，理想情况下，我想通过R CMD BATCH方法将parameter passing给正在执行的R脚本，尽pipe如果有办法使它产生一个可比较的.Rout文件，对于使用Rscript的方法会感到满意。

在Mac上安装R – 警告消息：设置LC_CTYPE失败，使用“C”

我想在我的笔记本Mac OS X版本10.7.3上安装R 我下载了最后一个版本，我双击它，它被安装，当我启动时，我得到以下错误，我在互联网search，但我不能解决问题，任何帮助将不胜感激 错误是 在启动过程中 – 警告消息： 1：设置LC_CTYPE失败，使用“C” 2：设置LC_COLLATE失败，使用“C” 3：设置LC_TIME失败，使用“C” 4：设置LC_MESSAGES失败，使用“C” 5：设置LC_PAPER失败，使用“C” [R.app GUI 1.50（6126）x86_64-apple-darwin9.8.0] 警告：您使用的是非UTF8语言环境，因此只能使用ASCII字符。 请阅读R for Mac OS X FAQ（请参阅帮助）第9节，并相应地调整您的系统偏好设置。 [从/Users/nemo/.Rapp.history恢复的历史logging]

删除出现x次R的ID

我有一个df，我想删除在df中的行数less于X的人。 例如，在这个玩具的例子中，我想保留有5行以上的人。 df names fruit 4 john kiwi 7 john apple 9 john banana 13 john orange 14 john apple 2 mary orange 5 mary apple 8 mary orange 10 mary apple 12 mary apple 1 tom apple 3 tom banana 6 tom apple 11 tom kiwi 示例输出 df names fruit 4 john kiwi 7 […]

如何学习R作为一种编程语言？

我想知道如何将R语言学习为“编程”语言，而不是将其学习为统计系统。 我的问题是由于缺乏对parsing，评估等function的理解而引起的，这些function可能无法被R用户用“统计”说服频繁使用。 编辑：我一直在探索像Rpy RSPerl rJava这样的工具，并希望（至less）能够理解有助于R与其他编程语言进行通信的概念。 R（R-PHP，RApache等）的Web应用程序的可用性是另外一个激励因素，我可以更深入地了解R的结构。 最后但并非最不重要，我希望能够编写R包，如果不需要的话，这样的理解将是有益的。

为什么apply（）返回一个转置的XTmatrix？

我想运行一个xtsmatrix的所有时期的函数。 apply（）非常快，但返回的matrix与原始对象相比具有转置的维度： > dim(myxts) [1] 7429 48 > myxts.2 = apply(myxts, 1 , function(x) { return(x) }) > dim(myxts.2) [1] 48 7429 > str(myxts) An 'xts' object from 2012-01-03 09:30:00 to 2012-01-30 16:00:00 containing: Data: num [1:7429, 1:48] 4092500 4098500 4091500 4090300 4095200 … – attr(*, "dimnames")=List of 2 ..$ : NULL ..$ : chr […]

dynamic创build带有shiny图的标签，而无需重新创build现有标签

我想创builddynamic标签，每当用户点击一个button，一个新的标签将被创build。 每个选项卡具有相同的内容，用户可以使用各种小部件来select要绘制哪组数据。 目前，我在这里使用的解决scheme来dynamic创build我的标签，但随着lapply正在调用一个函数调用tabPanel，并添加内容到标签 ` renderUI({ some_data <- # Dataframe that data is extracted goes here createTabs <- function(tabNum, some_data) { tabPanel(title = paste("Map", tabNum, sep=" "), fluidRow( column( width = 3, wellPanel( #widgets are added here } mTabs <- lapply(0:input$map, createTabs, some_data) do.call(tabsetPanel, mTabs) }) ` 这里的for循环的方法在这里发布，以在每个选项卡上创build图表。 但是，似乎不是创build一个新的选项卡，上述两个解决scheme都重新创build所有现有的选项卡。 所以如果当前有10个标签打开，所有10个标签都会被重新创build。 不幸的是，这也会重置每个选项卡上的所有用户设置（除了减慢应用程序的运行速度），还必须执行额外的规定，这会进一步减慢应用程序的速度，因为必须创build大量的input对象。 我看到一个菜单项的解决scheme似乎解决了这个问题，只需将所有的菜单项存储在一个列表中，每当生成一个新的菜单项时，它就被简单地添加到列表中，需要创build。 是这样的标签和渲染情节的可能吗？ 这是代码： newTabs <- […]