我有一个名为的数据框Fail.
我想将FailCSV 保存在用户选择的位置.下面是我找到的一些示例代码,但我不知道如何将其合并Fail到其中.
require(tcltk)
fileName <- tclvalue(tkgetSaveFile())
if (!nchar(fileName)) {
tkmessageBox(message = "No file was selected!")
} else {
tkmessageBox(message = paste("The file selected was", fileName))
}
您好,并提前感谢您的帮助,
(请注意注释部分以获得更多见解:即下面示例中的成本列已添加到此问题中; Simon提供了一个很好的答案,但成本列本身未在他的数据响应中表示,尽管他提供的功能与成本列一起使用)
我有一个数据集,让我们称之为"数据",看起来像这样
NAME DATE COLOR PAID COST
Jim 1/1/2013 GREEN 150 100
Jim 1/2/2013 GREEN 50 25
Joe 1/1/2013 GREEN 200 150
Joe 1/2/2013 GREEN 25 10
我想要做的是将具有相同NAME值的记录的PAID(和COST)元素相加,并将行数(如本示例中所示)减少为2,这样我的新数据框如下所示:
NAME DATE COLOR PAID COST
Jim 1/2/2013 GREEN 200 125
Joe 1/2/2013 GREEN 225 160
就日期而言,我并不关心哪一个在求和过程中幸存下来.
我已经达到了rowSums(数据),但我不确定如何使用它.任何帮助将不胜感激.
我已经运行了逻辑回归,我给它起了总结."得分"因此,summary(score)给我以下
Deviance Residuals:
Min 1Q Median 3Q Max
-1.3616 -0.9806 -0.7876 1.2563 1.9246
Estimate Std. Error z value Pr(>|z|)
(Intercept) -4.188286233 1.94605597 -2.1521921 0.031382230 *
Overall -0.013407201 0.06158168 -0.2177141 0.827651866
RTN -0.052959314 0.05015013 -1.0560154 0.290961160
Recorded 0.162863294 0.07290053 2.2340482 0.025479900 *
PV -0.086743611 0.02950620 -2.9398438 0.003283778 **
Expire -0.035046322 0.04577103 -0.7656878 0.443862068
Trial 0.007220173 0.03294419 0.2191637 0.826522498
Fitness 0.056135418 0.03114687 1.8022810 0.071501212 .
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 …所以我为R安装了devtools,但是当我用以下代码调用库时:
library(devtools)
我得到以下输出:
WARNING: Rtools is required to build R packages, but is not currently installed.
Please download and install Rtools 3.1 from http://cran.r-project.org/bin/windows/Rtools/ and then run find_rtools().
所以我执行了以下代码:
install.packages("Rtools", repos = "http://cran.r-project.org/bin/windows/Rtools/")
我得到以下输出:
Installing package into ‘C:~/Documents/R/win-library/3.0’
(as ‘lib’ is unspecified)
Warning: unable to access index for repository http://cran.r-project.org/bin/windows/Rtools/bin/windows/contrib/3.0
Warning message:
package ‘Rtools’ is not available (for R version 3.0.2)
我很感激有任何帮助,让Rtools进入我的机器,所以我可以调用devtools库.谢谢!
所以我有以下数据,比如称为"my_data":
Storm.Type
TYPHOON
SEVERE STORM
TROPICAL STORM
SNOWSTORM AND HIGH WINDS
我想要的是分类my_data $ Storm.Type中的每个元素是否是风暴,但我不想将热带风暴包括为暴风雨(我要将它们分开分类),这样我就可以了
Storm.Type Is.Storm
TYPHOON 0
SEVERE STORM 1
TROPICAL STORM 0
SNOWSTORM AND HIGH WINDS 1
我写了以下代码:
my_data$Is.Storm <- my_data[grep("(?<!TROPICAL) (?i)STORM"), "Storm.Type"]
但这只会让"严重风暴"成为一场风暴(但不会让SNOWSTORM和HIGH WINDS失效).谢谢!
例如给出:
dim1 <- c("P","PO","C","T")
dim2 <- c("LL","RR","R","Y")
dim3 <- c("Jerry1", "Jerry2", "Jerry3")
Q <- array(1:48, c(4, 4, 3), dimnames = list(dim1, dim2, dim3))
我想在这个数组中引用在(第3行,第4列)位置具有max dim3值的矩阵.
在识别该矩阵后,我想返回在矩阵(第3行,第1列)到(第3行,第3列)范围内具有最大值的列名.
所以我希望发生的是Jerry3被引用,因为数字47存储在第3行,第4列,然后在Jerry3中,我希望第3行中的最大数字被引用,这将是43,并且最终,我需要返回的(我需要的唯一值)是列名称,即"R".
这就是我需要知道如何做的,获得得到"R"并将其分配给变量,即"column_ref",使得column_ref < - "R".
请请帮忙.
使用Excel(2010)VBA,我试图复制(传递)一个恒定范围的单元格(其值重新计算)到一个数组.然后我试图将该数组传递给一个新的单元格范围,直接在它下面.完成此操作后,我想再次将常量范围的新值复制(传递)到数组中,并将这些新值传递到我之前传递的范围的正下方.
我知道这段代码非常糟糕(我是VBA中的数组新手).
Sub ARRAYER()
Dim anARRAY(5) As Variant
Number_of_Sims = 10
For i = 1 To Number_of_Sims
anARRAY = Range("C4:G4")
Range("C4").Select
ActiveCell.Offset(Number_of_Sims, 0).Select
ActiveCell = anARRAY
Range("C4").Select
Next
End Sub
我确实感谢你的帮助!
谢谢.
尊敬,
乔纳森
对于这个问题,我使用的是这里的R Shiny教程示例:
http://rstudio.github.io/shiny/tutorial/#datatables
在本教程上运行代码会将应用程序呈现在以下URL中
http://glimmer.rstudio.com/yihui/12_datatables/
我想知道的是,一旦呈现数据表,我们可以使用R Shiny中renderDataTable()函数内置的功能进行搜索,但是可以使用renderDataTable()下载已过滤的数据功能？
例如,如果在数据表搜索栏中输入"非常好",则仅显示"剪切"字段中记为"非常好"的记录.那我怎么下载那个数据集呢？
如何将TableTools.js复制,打印,保存等按钮调用到此代码中？
谢谢!
所以我有三个数据框，每个数据框有 14 列。
iowa <- data.frame() #Has 14 columns; let's say 600 records
maine <- data.frame() #Has same 14 columns; let's say 700 records
texas <- data.frame() #Has same 14 columns; let's say 900 records
我将这些数据框放在一个列表中，
state_List <- list(iowa, maine, texas)
然后，我想将 state_List 内每个数据帧内的两列（称为“State_Date”和“US_Date”）更改为日期格式，并且我想更改除一列之外的所有列作为因子。我写了以下内容：
state_List <- lapply(state_List,
function(x){
x$State_Date <- as.Date(x$State_Date, format = "%m/%d/%Y")
x$US_Date <- as.Date(x$US_Date, format = "%m/%d/%Y")
x[, c(1:7, 9:14)] <- as.factor(x[, c(1:7, 9:14)]
}
)
我收到的错误是
Error in sort.list(y) : 'x' must be atomic for 'sort.list' …我编写了代码,要求用户键入"2012"或"2013".然后我进行while循环检查以查看用户是否键入2012或2013.
输入有效年份的请求应该继续,直到用户输入有效数字.但是,我不断收到意外"{"发生的错误.我无法找到为什么这会在我的代码中产生这样的错误.
这是代码:
yr_function <-function(){
year_of_data <- as.numeric(readline("Is the year of concern 2012 or 2013? >>> "))
}
year_of_data = 0
While((year_of_data != 2012) | (year_of_data != 2013)){
yr_function
if(year_of_data != (2012 | 2013),print("You must type either 2012 or 2013")
}
生成错误读取:
Error: unexpected '{' in "While((year_of_data != 2012) | (year_of_data != 2013)){"
任何帮助将非常感激.
如果我有一个数组定义为:
Q <- array(runif(48), c(4,4,3), dimnames=list(
c("P","PO","C","T"), c("LL","RR","R","Y"), c("Jerry1", "Jerry2", "Jerry3")))
我想要做的是检查地址Q [1,4]的数组Q中的每个"Jerry_n"矩阵,如果Q [1,4]小于Q [1,1],那么我会喜欢删除那个Jerry矩阵.
非常感谢您提供任何帮助.
我有一个利用连接到 Amazon RDS 的 RMySQL 库的 R 脚本。该脚本最初会在运行该函数之前连接到 RDS。在函数内部，查询RDS上的MySQL，然后执行Sys.sleep命令，持续24小时（86400秒），然后恢复。因为 Amazon 的 RDS wait_timeout 参数设置为 8 小时 (28800)，这会导致我的 R 控制台中出现此错误：
Error in .local(conn, statement, ...) :
could not run statement: MySQL server has gone away
我不能这样做，所以我尝试了以下代码：
duration <- 86400
con <- dbConnect(MySQL(),
user = passwordFile$user[1],
password = passwordFile$password[1],
host = passwordFile$host[1],
dbname = passwordFile$dbname[1])
query <- function(...) dbGetQuery(con, ...)
testing <- function(){
test1 <- query("SELECT * FROM a_log")
print(test1)
dbDisconnect(con)
Sys.sleep(duration)
con <- dbConnect(MySQL(),
user = passwordFile$user[1],
password = passwordFile$password[1],
host …