假设我创建了一个包含日期和时间的变量:
a <- ymd_hms("2014-01-01 12:23:34")
如何创建仅具有日期的另一个变量？也就是说,我应该怎么做才能改变a的价值是相同b的值,其中b是
b <- ymd("2014-01-01")
我strtoi用以确定以下函数中的一周中的一周:
to.week <- function(x) strtoi(format(x, "%W"))
它适用于大多数日期:
> to.week(as.Date("2015-01-11"))
[1] 1
但是,当我在2015-02-23和之间尝试日期时2015-03-08,我得到NA的结果是:
> to.week(as.Date("2015-02-25"))
[1] NA
能否请您解释一下导致问题的原因？
我尝试使用 python 3.5.1 运行以下程序。
from scipy import optimize
optimize.anneal(f, input_vector0, lower = 0, upper = 2*np.pi)
我收到以下错误消息：
AttributeError: module 'scipy.optimize' has no attribute 'anneal'.
谁能告诉我应该做什么来解决这个问题？对此，我真的非常感激 ！
我正在使用stargazerR 中的回归输出包。我有一个自定义的估计程序，它不会产生模型对象，而只会产生系数和标准误差的向量。有没有办法可以提供这些stargazer并获得格式良好的输出表？
例子：
dep.var <- "foo"
regressors <- c("bar", "baz", "xyz")
vec.coeffs <- c(1.2, 2.3, 3.4)
vec.se <- c(0.1, 0.1, 0.3)
输出应该类似于：
===============================================
Dependent variable:
---------------------------
foo
-----------------------------------------------
bar 1.200***
(0.100)
baz 2.300***
(0.100)
xyz 3.400***
(0.300)
-----------------------------------------------
有没有办法mutate()在(d)plyr包装中制作评价公式？我想到一个有很多变量的情况,count.a, count.b, ..., count.z我想创建一个新变量来总结所有这些.我可以创建一个字符串"count.total = count.a + count.b + (...) + count.z",但是如何mutate()评估呢？
说我有一个数据框
DF1 <- data.frame("a" = c("a", "b", "c"), "b" = 1:3)
将此变为列表的最简单方法是什么？
DF2 <- list("a" = 1, "b" = 2, "c" = 3)
它一定很简单,但我找不到答案.
以编程方式删除列的最佳做法是什么data.table？
以下作品:
DT[, c("a", "b") := NULL]
但是当尝试使用存储列名称的变量来执行此操作时
cols.to.del <- c("a", "b")
DT[, cols.to.del := NULL]
它没有严重失败,因为cols.to.del没有在正确的环境中评估.
使用Python 2.7,我遇到了以下问题:我有想要清理的网址,特别是我想摆脱"http://".
这有效:
>>> url = 'http://www.party.com'
>>> url.lstrip('http://')
'www.party.com'
但为什么这不起作用？
>>> url = 'http://party.com'
>>> url.lstrip('http://')
'arty.com'
它摆脱了'派对'的'p'.
谢谢您的帮助.
我正在使用带有R的包dplyr(同样的问题也适用于plyr).当我调用source("dply_problem.R")以下代码时
library("dplyr")
df <- data.frame("A" = 1:6,
"B" = 7:12)
mutate(df, C = A + B)
列"C"没有添加到df.但是,当我mutate(df, C = A + B)从shell 调用时,会创建"C"列.你能给我一个暗示为什么会这样吗？
我正在处理医疗索赔数据,数据文件如下所示
claim_id status
abc123 P
abc123 R
xyz374 P
xyz386 R
我想创建一个新列作为标志,它基本上将由claim_id分组,并且如果相同的claim_id的状态包括"P"和"R".标志栏应包含"是"
claim_id status flag
abc123 P Yes
abc123 R Yes
xyz374 P No
xyz386 R No
我对这个解决方案的方法是使用dplyr: -
data <-data1 %>%
group_by(claim_id)%>%
mutate(flag = ifelse(any(status == "P" | status == "R"),
"Yes",
as.character(status)))
此方法需要较长时间,并且还会在标志列中将所有行标记为"是".
我有以下用于 Vim 的 utilsnips 脚本：
snippet - "assignment"
<-
endsnippet
我将它用于 R 以将破折号扩展到赋值运算符。我想让它<-在扩展前后都放置一个空间。但是，当我在像 一样的代码段中在它之前放置一个空格时<-，它不会在点击时扩展Tab。我应该如何修改脚本以在运算符周围留出空格？想要的结果：<-。