• 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=",")) 我想将一大堆数据帧绑定在一起，但不想拼出所有数据帧，而...
    由 发布于 bindrpaste

  • 如果两个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) 我的目标是在...
    由 发布于 rvariablesnew-operator

  • 我不断收到错误消息“ 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...
    由 发布于 r

  • 使用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...
    由 发布于 optimizationrigraphshortest-path

  • R函数用于删除列中的前4个字符？

    我有一个数据框（Data），并使用substr在列（详细信息）中创建了每个向量的前四个字符的新列。 这是代码： Data $ Years = substr（Data $ Details，1，5） 我将如何使用substr（或其他函数）从原始（详细信息）列中删除相同的前四个字符？
    由 发布于 substrsubstringr

  • 一个向量上有多个股票

    如何将多只股票放在标有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', ...
    由 发布于 r

  • 如何控制条形图中类别之间的间隔？

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

  • 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...
    由 发布于 rlegendggplot2

  • 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 ...
    由 发布于 rdata.table

  • ggplot2图形中如何有2个源标题？ [R

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

  • 确定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...
    由 发布于 dataframer

  • 合并许多具有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...
    由 发布于 listcsvmergerlowercase

  • R创建给定值的重复日期

    使用R，我需要复制一组日期。例如，如果我的数据集是： 日期计数 2020年1月1日| 5 我希望能够做的是在单列中包含以下内容： 日期 2020年1月1日 2020年1月1日 2020年1月1日 2020年1月1日 2020年1月1日
    由 发布于 rtidyverse

  • 使用字符串库，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（）的有效方法是什么？
    由 发布于 r

  • 对于字符串的循环

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

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

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