在R中生成pca图
I have data set with 900 rows and 90 columns.i have done the PCA while generating PCA plots unable to analysis due to overlapping of row names.i want to do analysis of PCA and need to get the results based on row name .
plot:
-
-
与其他更改空白值
具有这样的数据框： data.frame(id = c(1,2,3,4), text1 = ("sth","","another",""), text2 = ("more","another","add",""), text3 = ("final","and","where","all")) 如何检测text1列中的行是否为空白，并用text2，text3或text4列中存在的值填充空白，并在处理之后从此NA中离开 预期输出示例 data.frame(id = c(1,2,3,4), text1 = ("... -
为什么我使用反向logit功能获得相同的S曲线？
I'm currently working on a MMM model for an automotive company. I'm considering lag and decay effect of advertising campaigns (see - https://en.wikipedia.org/wiki/Advertising_adstock) and then applying z transforms over the independent variables 我正在使用反转log... -
在特定文字之后替换
我想删除行中的特定文本之后的所有内容。 我用这个： dframe$col1 <- gsub("Stock Amazon|Or Another|Google","",dframe$col1) 但是它将删除整行，而不删除字符串后的任何内容。我该如何解决？ -
使用特定的值更改许多值
我有这样的数据： data.frame(text1 = c("Amazon", "Google", "other")) 添加我想用特定值替换列表中的任何内容 mylist <- c("Amazon", "Google") 用股票价值替换mylist中的内容 预期产量： data.frame(text1 = c("stock", "stock", "other")) -
R的粘贴功能是否等同于BASH？
我正在尝试将这段R代码转换为bash： year <- 2010 emmissions <- paste("Emmision table from ",year, sep="") em_table <- read.table(emmissions, head=F, as.is=T) for (i in 1:nrow(em_table)) { print(em_table[i,1]) } 但是无法弄清楚如何将粘贴函数转换为带变量的字符串。预期的结果是将该脚本翻译成bash代码。 -
删除多于一列的行
data.frame(id = c(1,2,3,4), text1 = c("sth","","another",""), text2 = c("more","another","add",""), text3 = c("final","and","where",""), stringsAsFactors = FALSE) 如果所有的单元格都没有写任何内容，如何检查text1，text2，text3列呢？ 预期输出示例 data.frame(id = c(1,2,3), text1 = c("sth","... -
根据R中不同ID的条件聚合两行
我正在处理一项运动的运动员统计数据集。数据中存在错误，一个不存在的玩家一周被归因于一个真实玩家的数据。我需要汇总两个玩家数据并删除虚假玩家行的实例。 我需要调整预处理代码以适应此情况，因此，当我抓取未来几周的数据时，则无需进行手动调整。 df <- data.frame(Name = c("Bob","Ben","Bill"), Team = c("Dogs","Cats","Birds"), Runs = c(6, 4, 2) 我想根据... -
R中的向量化循环操作
我有一个具有7列的长格式平衡数据框（df1）： enter image description here 此数据集中的每个Product_ID都与唯一的Product_Category，Country_Code和Manufacture_Date链接，并随时间推移（Control_Date）。 Product_Category有两个可能的值（A或B）。 Country_Code和Manufacture_Date分别具有190和90的唯一值。有40万个唯一的Product_ID，在接下来的50年中（Contro... -
如何获得正确格式的时间字符串？
我坚持将字符串转换为时间。我知道Stack上有很多关于将字符串转换为时间的主题，但是我无法通过解决方案解决此问题。 情况 我有一个像这样的文件： > dput(df$Time[1:50]) c("1744.3", "2327.54", "1718.51", "2312.3200000000002", "1414.16", "2046.15", "1442.5", "1912.22", "2303.2199999999998", "2146.3200000000002", "1459.02", "1930... -
从复杂的嵌套列表中提取组件
目标：提取嵌套信息（嵌套）以创建单个数据框。 我有一个包含其他几个列表的复杂列表，这些列表也有几个嵌套列表。我努力提取列表以创建（多个）数据帧。我有些时候陷入困境，因为我想在保留非嵌套信息的同时提取嵌套信息。以下是一些虚假数据，可让您大致了解结构： df <- list(FirstInput = structure(list(ProductID = c("6973e325-242c-4735-85be-f66f4f979a3e", "bae3884c-7789-4417-9371-55d02e8a1dbd... -
确定日期范围内的唯一年份
我正在尝试确定客户在几年中使用医疗保健。数据： Clientnumber Date start Date end 1 01-03-2017 31-10-2017 1 01-02-2018 07-08-2018 1 01-11-2018 01-03-2019 1 25-03-2019 01-07-2020 For this one client I want to know in what ... -
R中Purr的斜率/截距比
我想为坡度和截距之间的比率打印一种单向视图。 到目前为止，我已经： mtcars %>% split(.$cyl) %>% map(~lm(mpg~wt, data =.)) %>% map(coefficients) %>% map_dbl("(Intercept)") mtcars %>% split(.$cyl) %>% map(~lm(mpg~wt, data =.)) %>% map(coefficients) %>% map_dbl("wt") 这可以正常工作并根据需... -
如何在ggplot中的列顶部显示汇总值
我从同一df中总结了两个df-s：IncomeSum ##Total income by Category and Date incomeSum <- income %>% group_by(Date, Category) %>% summarise( Inflow = sum(Inflow)) 和收入 ##Aggregating Inflow by Date incomeDaAg <- aggregate(income$Inflow, by = list(income$Date), FUN ... -
R：将特定列汇总的特定列之和
我有一个看起来像这样的数据框： Col1 Col2 Col3 Col4 10 A 5 4 10 A 6 3 30 B 2 7 45 C 5 1 45 C 2 1 我想对仅按Col2分组的第3列和第4列求和，这样我得到的数据框看起来像 Col1 Col2 Col3 Col4 10 A 11 7 30 B 2 7 45 C ... -
为什么我的R脚本会占用计算机的所有内存？
我编写了一个简单的脚本，该脚本从文件夹中打开每个.docx文档并查找某些单词。如果存在任何单词，它将提取一个ID号，然后移至下一个文档。问题在于，在大约1500个文档之后，它将消耗计算机的所有内存，并且R卡住并中止。我不知道为什么会发生-我的脚本不应该使用太多内存。任何建议，将不胜感激！ rm(list=ls()) #clean environment library(qdapTools) setwd("C:/DocxArchive/ParentFolder") results <- 0 #store re... -
如何创建具有特定数量的TRUE / FALSE条目的随机逻辑矢量
我想创建一个具有10行的逻辑向量，每行随机分配为TRUE或FALSE。但是，我希望只有3个FALSE和7个TRUE。 期望结果的示例（具有三个随机分配的FALSE条目和7个随机分配的TRUE条目的逻辑向量）： > vector [1] "TRUE" "TRUE" "FALSE" "TRUE" "FALSE" "FALSE" "TRUE" "TRUE" "TRUE" [10] "TRUE" 我可以创建一个大小为10的逻辑向量，该向量具有TRUE或FALSE，但是我不知道如何指定我想要三个FALS... -
为什么导入方法在Rcpp中不起作用？
早上好 ！ 我正在尝试用C ++而不是R重写哈希函数： R代码： # The used packages library("pacman") pacman::p_load(dplyr, tidyr, devtools, MASS, pracma, mvtnorm, interval, intervals) pacman::p_load(sprof, RDocumentation, helpRFunctions, foreach , phi... -
R：如何在此功能中使用当前功能输出
I write a R function using if & else if in it. See the code below: i_ti_12 <- function(x){ if (x <= 44) {ti = exp(-13.2238 + 0.152568*x)} else if (x >= 49) {ti = -0.01245109 + 0.000315605*x} else (x > 44 & x < 49) {ti = (x-44)*(i_ti_12(49))/(49... -
R中是否有一个函数可以组合从多个数据帧构建的图形的两个图例？
我正在尝试合并剧情的图例，但我不知道该如何做。我查找了许多示例，但是在这些示例中，人们是从一个数据帧构建图的。我的情节是根据四个数据框构建的。我尝试将这些日期框架与merge和rbind函数合并，但我不知道如何正确执行。 是否可以合并图例而不合并数据框？ 这是我的代码 fig_ObjPlur_ASSenTD <- ggplot(subset(gazetarget_ObjPlur_ASS)) + geom_line(data=gazetarget_ObjPlur_ASS,aes(x=Time, ...
欢迎访问 码农俱乐部 点击这里设置您的邮箱 可以接收站内跟帖、回复邮件提醒，不错过任何一条消息。
关注公众号订阅更多技术干货！
