• R粘贴列表

    data1 = data.frame("time" = c(1:10)) data2 = data.frame("time" = c(11:20)) data3 = data.frame("time" = c(21:30)) data4 = data.frame("time" = c(31:40)) rbind(data1, data2, data3, data4) rbind(paste("'","data","'",1:4,sep=",")) 我想将一大堆数据帧绑定在一起,但不想拼出所有数据帧,而...
  • 如果两个df中的两个“ age”变量在R中匹配,如何将新列添加到作为变量“ hr”的-ln的数据帧中?

    我的目标是在df1中创建一个新列“ HoLj”,如果df1中的相应年龄与df2中的age2相匹配,则它是df2中“ hr”的-ln。 df1<- data.frame(age = c("1","2","4","5","7","8"), dif = c("y", "n", "y", "n","n","y") df2<- data.frame(age2=c("1","2","3","4","5","6","7","8"),hr=c(56, 57, 23, 46, 45, 19, 21, 79) 我的目标是在...
  • 我不断收到错误消息“ eff_weights [i,] <-eff.port $ pw中的错误:要替换的项目数不是替换长度的倍数”

    我是R新手,确实需要一些帮助。我不断收到错误消息 “ eff_weights [i,] <-eff.port $ pw中的错误:要添加的项目数   替换不是替换长度的倍数” 当我运行循环时。有人可以帮我弄清楚我在做什么错。提前非常感谢您! # Create for loop to find efficient frontier for (i in 1 : length(grid)) { eff.port <- portfolio.optim(returns, pm = grid[i], short...
  • 使用igraph进行网络旅行分配

    我的问题: 我有一个街道网络(df.net)和一个包含行程起点和终点的列表(df.trips)。 我需要找到所有链接上的流吗? library(dplyr) df.net = tribble(~from, ~to, ~weight,1,2,1,2,1,1,1,9,3,9,1,2,2,10,1,10,2,2,9,10,8,10,9,15,9,8,1,8,9,2,7,8,2,12,7,3,9,12,10,12,9,9,12,6,2,6,12,5,11,12,3,12,11,3,5,6,1,11,5,4,5,1...
  • R函数用于删除列中的前4个字符?

    我有一个数据框(Data),并使用substr在列(详细信息)中创建了每个向量的前四个字符的新列。 这是代码: Data $ Years = substr(Data $ Details,1,5) 我将如何使用substr(或其他函数)从原始(详细信息)列中删除相同的前四个字符?
  • 一个向量上有多个股票

    如何将多只股票放在标有my.portfolio的矢量上? 我正在分析18只股票。我正在使用每月收益,并希望从一个向量名称中调用所有向量 myportfol getSymbols(c('DPZ','SPY','AMD','AAPL','TSLA','MSFT','V', 'WMT', 'SQ','EA','ATVI','AMZN','ROKU', 'PYPL','KO','AXP','CCL','DFS'), src="yahoo", from='2014-01-01', to='2018-12-31', ...
  • 如何控制条形图中类别之间的间隔?

    我已经在RStudio中成功完成了一个工作区绘图,但是我想减小类别(CPLEX和Heurística)之间的空间,但是我做不到。我的目标是使此数字更薄,因为我正在处理一个乳胶文件,在该文件中我想将两个图并排放置在同一行中,但是它们太宽了,无法使用边距。我的代码如下。 library("readr") library("fmsb") library("normtest") library("nortest") library("moments") library("readxl") # carga de ...
  • ggplot中颜色美学中的多变量问题

    我正在尝试使用2个不同的数据集绘制图形,例如以下示例: library(dplyr);library(ggplot2) t <- data.frame(x=c(3,5, 7), y=c(25, 25, 27), text=c("t1", "t1", "t2")) test <- data.frame(x=c(1:10), y=c(20:29), factor=c(rep("a", 5),rep("b", 5))) test %>% ggplot(aes(x, y)) + geom_line(ae...
  • R Data.table根据大于值的列向量过滤行

    我在data.table中有一个可变的列名列表,并且想对它们全部应用相同的过滤器,以对表中的行进行子集化(即给我列表中所有列均> = 5的行) DT = data.table( ID = c("b","b","b","a","a","c"), a = 1:6, b = 7:12, c = 13:18 ) > DT ID a b c 1: b 1 7 13 2: b 2 8 14 3: b 3 9 15 4: a 4 10 16 5: a 5 11 17 6: c ...
  • ggplot2图形中如何有2个源标题? [R

    我正在尝试在ggplot2图形中添加第二个标题。 与这位经济学家的图表相似 这是我制作的基本情节,我知道如何在右下角添加一个标题,但如何在左下角添加另一个标题 ggplot(mtcars, aes( mpg, hp)) + geom_point() + labs(title = "MTCARS MPG ~ HP", caption = "Source: mtcars dataset")
  • 确定R中旅行的开始和结束

    我想确定从t1开始到t7结束的活动的持续时间。起点是t1,它记录了活动在t1_1,t1_2,t1_3等处的发生。例如,在ID为12的情况下,活动发生在t1_2和t1_3(我想保存),t2_2(因为我没有参与此活动之前和之后没有活动),t3_1(与t2_2相同),t3_3, t4_2,t5_2,t6_1,t6_2,t6_3和t7_3。我想从头到尾标识发生活动的所有ID,持续时间和最频繁的ID。 输入: id t1_1 t1_2 t1_3 t2_1 t2_2 t2_3 t3_1 t3_2 t3_3 t4_1 t...
  • 合并许多具有R中不同列和标题的csv文件

    我有一个复杂的问题,感谢任何建议。我有大约100个csv文件,分别对应于我作为列表带入R的不同年份的数据收集。我需要合并它们,但是文件并不全都具有相同的列数,列的顺序也不相同,并且某些列标题为大写,而另一些则为小写。这是列表中数据集的简化示例: ID_code = c(1,2,3,4,5) stuff = sample(x = c("A", "B", "C"), size = 5, replace = TRUE) THINGS = sample(x = c(5, 10, 27), size = 5, rep...
  • R创建给定值的重复日期

    使用R,我需要复制一组日期。例如,如果我的数据集是: 日期计数 2020年1月1日| 5 我希望能够做的是在单列中包含以下内容: 日期 2020年1月1日 2020年1月1日 2020年1月1日 2020年1月1日 2020年1月1日
  • 使用字符串库,R中名称的缩写向量

    我有这个变量: names<-c("Sophia Abbe", "Olivia Abbett", "Emma Abbey", "Ava Abbitt", "Isabella Abbot", "Mia Abbott", "Aria Abbs") 我想缩写名字并将其放入向量中。 我想获得一个矢量,例如(“ S. Abbe”,“ O。Abbett”,...,“ A。Abbs”) 使用字符串函数str_c(),str_split()和str_sub()的有效方法是什么?
  • 对于字符串的循环

    我有一个包含位置列和其他列的数据集。 Locations <- c("Test1", "Test2", "Test3", ..."Test60") 我也有几个Rmd文件。 files <- list.files(pattern = "[.]Rmd$") 每个Rmd文件执行不同的操作,每个结果都吐出一个csv文件。假设我有3个Rmd文件。我需要为“位置”中的每个位置运行这些Rmd文件。 (所以我应该有180个csv文件) 我正在尝试编写一个for循环,以便“位置”中的每个位置都通过3个Rmd文件运行。 代...
公告

欢迎访问 码农俱乐部  点击这里设置您的邮箱  可以接收站内跟帖、回复邮件提醒,不错过任何一条消息。

关注公众号订阅更多技术干货! 码农俱乐部