r - 优文库

r

1热度

1回答

我有一个运行良好的函数，我想通过删除其中一列并使用这些命令将另一列中的NA值转换为1来清理输出： df$PlateIden <- NULL df$PlateNum[is.na(df$PlateNum)] <- 1 ，当我直接使用我的功能之外的数据帧，但是当我在函数中使用他们我的数据框变成要么是“空”或“1”，如果任一功能的值。这些工作用过的。这里是我的全部功能： cleanup_

1热度

1回答

在熊猫数据框中使用最近创建的属性来创建新属性

我正在寻找相当于R的mutate，它允许您在创建它们之后立即引用已定义的变量在相同的mutate调用内。 new_df <- old_df %>% mutate(new_col = ifelse(something, 0, 1), newer_col = ifelse(new_col == 0, 'yay', 'nay')) 在python熊猫中寻找等价物。如果我创建

-1热度

1回答

R：PCA ggplot错误“的参数意味着不同的行数”

我有一个数据集： https://docs.google.com/spreadsheets/d/1ZgyRQ2uTw-MjjkJgWCIiZ1vpnxKmF3o15a5awndttgo/edit?usp=sharing ，我试图运用主成分分析和基于在这个岗位提供图形来实现图形： https://stats.stackexchange.com/questions/61215/how-to-inter

1热度

1回答

评价dplyr :: case_when（）

继dplyr::case_when()文档中给出的例子： x <- 1:50 case_when(x %% 35 == 0 ~ "fizz buzz", x %% 5 == 0 ~ "fizz", x %% 7 == 0 ~ "buzz", TRUE ~ as.character(x)) 我想到的是人数35会产生"buzz"但它产生"fizz buz

0热度

2回答

使用readOGR读取多个文件并输出到R中的不同文件的循环

我在文件夹中有一堆.gpx文件，我试图用readOGR读取它们，并为每个.gpx文件获取内存中的一个文件。这是什么不工作： myfiles <- list.files(".", pattern = "*.gpx") for (i in 1:length(myfiles)) { temp.gpx <- readOGR(dsn = myfiles[i], layer="tracks")

0热度

1回答

如何使用自定义函数更改geom_text中的文本标签

我有一些数据，我想使用stat_count()中的一些变量来标记条形图。这就是我想做的事： library(ggplot2) library(scales) percent_and_count <- function(pct, cnt){ paste0(percent(pct), ' (', cnt, ')') } ggplot(aes(x=Type)) + stat_co

1热度

1回答

如何在警告消息中的元素之间添加分隔符？

这个问题最有可能已经回答了很多次，但我似乎没有找到答案，即使经过大力的搜索... 我想创建一个警告消息使用字符向量。向量中的元素应该用“，”分开，不应重复。像这样：警告消息：条目这，这也是，也应该检查。功能warning将消息传递到cat功能，这使得我很难明白，我应该如何使用cat内warning： entries2check <-c("This", "that", "this too", "

2热度

1回答

如何将grobs存储在列表中并将它们传递给grobTree（）？

因此，我试图制作一个grobs列表，然后将它们传递到grobTree()，但我的列表项目不会作为grob通过do.call()读入。这里是我的代码： library(purrr) library(grid) library(gridExtra) library(ggplot2) qplot(displ, year, data = mpg) title_segments <- c('H

1热度

2回答

如何跨越制表（XTABS）多瓦尔，但相同的击穿

我有一个数据帧寻找这样的： SubjectID Activity V1 V2 V3 1 2 S 0.2571778 -0.02328523 -0.01465376 2 2 W 0.2860267 -0.01316336 -0.11908252 3 3 R 0.2754848 -0.02605042 -0.11815167 4 3 W 0.2702982 -

0热度

1回答

R中

我试图计算一个估计的MISE整合之和，我需要做的积分： (fp(x) - f(x))^2 where f(x) is exp(-x) and fp(x) is : sum_{i}^n { (1/n)*((K((x - X[i])/h))/h) } 这里的问题是，X是一个矩阵，我不不知道如何整合这笔钱。我试过这个： Kgauss <- function(u) dnorm(u) #Gaussia