有没有办法在ggplot2中为自动关联的时间序列合并平滑函数？
我有自动关联的时间序列数据,我目前使用手动过程来确定拟合样条曲线的95%CI.
用法和日期在数据框AB中.我使用的模型的主要组件如下:
d<-AB$Date
a<-AB$Usage
o<-order(d)
d<-d[o]
a<-a[o]
id<-ts(1:length(d))
a1<-ts(a)
a2<-lag(a1-1)
tg<-ts.union(a1,id,a2)
mg<-lm(a1~a2+bs(id,df=df1), data=tg)
从该模型中,我获得了拟合装置和拟合的标准误差,用于计算拟合花键的95%CI.
我在ggplot2中看到了lm方法的示例,其中有一个术语来指定模型公式.当时间序列自动关联时,这种时间序列模型是否可以实现？
谢谢.
我试图生成一个Obersved/Expected医院感染率图表,误差条显示上下95%和99.7%的置信区间.
以下是数据:
orthssi <- structure(list(Hospital = structure(1:18, .Label = c("A", "B",
"C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O",
"P", "Q", "R"), class = "factor"), SSIs = c(80L, 38L, 24L, 35L,
39L, 30L, 128L, 27L, 70L, 30L, 30L, 2L, 6L, 38L, 3L, 9L, 52L,
13L), Procedures = c(865L, 1069L, 796L, 891L, 997L, 550L, 2598L,
373L, 1079L, 714L, 477L, 227L, 125L, 589L, 292L, 149L, 1984L,
351L), Expected = c(44.89, 51.149, 35.15, 42.495, 46.987, 26.999,
105.032, 18.304, …我正在尝试将包含0到100范围内的年龄的数据帧列绑定.当我尝试使用bin来包含零年龄时,它不起作用.
这是一个使用包含我的数据范围的列表的演示:
pd.cut(pd.Series(range(101)), [0, 24, 49, 74, 100])
范围中的零值从切割返回NaN.
有什么方法吗？
我有dataframe一个字段包含不同长度的列表。我想将该字段中列表的每个元素提取到其自己的字段中，以便我可以将结果收集到dataframe每个 id 的每个列表元素的 long 中。
这是一个例子dataframe
dat <- structure(list(id = c("509935", "727889", "864607", "1234243",
"1020959", "221975"), some_date = c("2/09/1967", "28/04/1976",
"22/12/2017", "7/02/2006", "10/03/2019", "21/10/1935"), df_list = list(
"018084131", c("062197171", "062171593"), c("064601923",
"068994009", "069831651"), c("071141584", "073129537"), c("061498574",
"065859718", "067251995", "069447806"), "064623976")), class = c("tbl_df",
"tbl", "data.frame"), row.names = c(NA, -6L))
我已经提供了代码来实现我想要的最终结果，但是，我还没有以 DRY 方式完成此操作。这是我尝试过的。
res_n是一个函数如下：
res_n <- function(field, n) {
field[n]
}
dat <- dat %>% mutate(res1 = map(df_list, res_n, 1))
dat <- dat %>% mutate(res2 …我已将数据提取到需要合并的混合格式日期的数据框中。数据框的结构如下：
dateDF <- structure(list(id = 1:7, value = c(5813L, 8706L, 4049L, 5877L,
1375L, 2223L, 3423L), date = structure(c(4L, 3L, 2L, 1L, 7L,
6L, 5L), .Label = c("??:?? 05-Dec-11", "??:?? 06-Dec-11", "??:?? 07-Dec-11",
"??:?? 19-Dec-11", "30/12/2011 16:00", "30/12/2011 16:45", "31/12/2011 19:10"
), class = "factor")), .Names = c("id", "value", "date"), row.names = c(NA,
-7L), class = "data.frame")
我曾经dateDF$date <- str_replace(string=dateDF$date, pattern='\\?\\?\\:\\?\\? ', '12:00 ')生产过：
id value date
1 5813 12:00 19-Dec-11
2 8706 12:00 07-Dec-11
3 4049 12:00 06-Dec-11 …我试图删除字符串中的所有内容,除了空格破折号( - )和字母.例如
string1 <- "test-%432string *#$ one!~+"
我该如何返回"test-string one"
我试过:
gsub("[^a-zA-Z-\s]", "", string1)
无济于事 - 它删除了应留下的空间.
谢谢你的帮助.
在RStudio上使用数据帧mtcars.
比方说,我想要子集 mtcars[mtcars$cyl == 4,]
Tabbing after mtcars$将在数据框中提供变量名称的下拉列表.
Tabbing after后mtcars[mtcars$不返回变量名.
为什么会这样？
Pandas中的列名分配是否有理由支持大写而不是小写？
例:
dframe = DataFrame({'city':['Alma','Brian Head', 'Fox Park'],
'altitude':[3158,3000,2762]})
返回一个DataFrame,其中包含订单高度,城市中的列.
鉴于:
dframe = DataFrame({'City':['Alma','Brian Head', 'Fox Park'],
'altitude':[3158,3000,2762]})
返回一个DataFrame,其中包含City,altitude的顺序列.
这是大熊猫特有的或一般的python行为吗？
我试图将一个平面文件读入R.
它由';'分隔 并有12条引导线来描述内容.我想阅读该文件并排除评论.
但问题是注释行11包含数据头,如下所示:
# Fields: labno; name; dob; sex; location; date
有没有办法可以从注释中提取标题并将其应用于数据.我想这样做的方法是只读取前11行并将labno中的所有内容存储为向量.我会从第13行读取所有内容,并使用商店向量作为日期的列名.
有没有办法读取前11行并删除之前的所有内容 labno
谢谢.
我正在使用plyr包来处理列表和数据帧.我注意到以下行为:
例1 -
list_2 <- llply(list_1, function_1, .progress='text')
这按预期工作.它从list_1生成list_2,其中function_1应用于每个list_1元素,我看到进度条.
例2 -
list_3 <- dlply(list_2, function_2, .progress='text')
这也适用于我在list_3中获得我期望的结果,但是,我没有得到进度条.
总之,为什么进度条不适用于dlply但适用于llply.(它也适用于ldply).
这可能是一个愚蠢的问题,但......
在导入pandas后设置选项时,我一次设置一个,例如:
pd.set_option('max_rows',1000)
pd.set_option('notebook_repr_html',False)
有没有办法尝试组合它们.我尝试传递一个选项列表,但没有任何工作.
如果只有一种方法可以做到这一点,那就不是什么大事了.