如何使用purrr和tidyr修改嵌套数据框中的列类型
purrr和tidyr是R语言中常用的数据处理包，可以用于修改嵌套数据框中的列类型。
首先，嵌套数据框是指数据框中的某些列包含了其他数据框或列表。使用purrr包中的map函数可以方便地对嵌套数据框中的每个元素进行操作。
要修改嵌套数据框中的列类型，可以使用purrr包中的map函数结合tidyr包中的unnest函数进行操作。具体步骤如下：
- 加载所需的包：
library(purrr)
library(tidyr)- 创建一个嵌套数据框：
nested_df <- tibble(
id = c(1, 2),
data = list(
tibble(a = 1:3, b = letters[1:3]),
tibble(a = 4:6, b = letters[4:6])
)
)- 使用map函数和tidyr包中的unnest函数修改嵌套数据框中的列类型：
modified_df <- nested_df %>%
mutate(data = map(data, ~mutate(.x, a = as.character(a)))) %>%
unnest(data)上述代码中，使用map函数对嵌套数据框中的每个元素进行操作，将列a的类型修改为字符型。然后使用unnest函数将嵌套数据框展开为普通的数据框。
这样，就完成了对嵌套数据框中的列类型的修改。
关于purrr和tidyr的更多详细信息和用法，可以参考以下链接：
- purrr包：https://purrr.tidyverse.org/
- tidyr包：https://tidyr.tidyverse.org/
腾讯云相关产品和产品介绍链接地址暂无法提供，建议参考腾讯云官方文档或咨询腾讯云官方客服获取相关信息。
相关·内容
1回答
一般来说，Rstudio是新的，所以我的一些概念还不清楚。试图从OpenWeatherMap查看JSON文件上的数据。它们看起来像这样(缩短了这里查看的数据)。
[{"city_name":"X-Land"
"lon": -10.10,
"lat": 10.10
,"main":{
"temp":19,
"temp_min":18,
"temp_max":20 }
"weather": [{
浏览 4提问于2020-10-22得票数 0
1回答
我正在使用Etsy的API中的数据进行一个项目。具体来说，我看的是Etsy的分类。dataframe中的每一行表示一个类别节点，其嵌套数据帧包含其所有子节点。我不确定每个类别中有多少个子类别，每个类别的子类别级别也不同。每个嵌套的dataframe都有与其嵌套的dataframe相同的列。如果节点没有子节点，则将空列表存储在子变量中。
有人对我如何解锁这些数据有任何建议吗？我尝试使用嵌套的for循环和tidyr的unnest()，但这是为每个嵌套的dataframe添加了新的列。要明确的是，我要寻找的输出与嵌套的dataframe具有完全相同的列，但是所有的类别都存储在其末尾的内部数据框架中。
浏览 2提问于2022-03-18得票数 1
我有一个包含类型列的data.frame。该列表包含一个1x3 data.frame。我只想从这个列表中得到一个值。这样我的data.frame就会变平，这样我就可以写出一个csv了。
如何从嵌套的data.frame中选择一项(请参见第二列)？
这是嵌套的col。我会提供数据，但不能向write_csv提供数据。
dput结果：
structure(list(id = c("1386707", "1386700", "1386462", "1386340",
"1386246", "13
浏览 5提问于2020-05-08得票数 1
回答已采纳
1回答
我想将一个数据框中的多个列组合成该数据框中的一个列，即一个列表。例如，我有以下数据框架成分：
name1 name2 imgID attr1 attr2 attr3...
Item1 ItemID1 Img1 water chocolate soy...
Item2 ItemID2 Img2 cocoa spice milk...
我想将attr列合并到一个列中，该列是那些项目的逗号分隔列表，如果可能的话，让它们以以下格式出现：
name1 name2 imgID attrs
Item1 ItemID1 Img1 c("water", "chocolate",
浏览 12提问于2018-02-17得票数 1
2回答
我有一个包含比赛结果的数据框。在这个例子中，竞争对手b和c并列第二。实际的数据帧非常大，可能包含多个连接。 df <- data.frame(name = letters[1:4],
place = c(1, 2, 2, 4)) 我也有相应位置的积分值，第一名得4分，第二名得3分，第三名得1分，第四名得0分。 points <- c(4, 3, 1, 0)
names(points) <- 1:4 我可以将points与place进行匹配，以获得每个参赛者的分数 df %>%
mutate(score = points[plac
浏览 22提问于2020-07-23得票数 1
1回答
给定一个数据帧，其中列中的每个观测值都是"x~y“形式的字符串，其中x和y是整数。
目标是将"x~ y“字符串转换为向量c(x..y)，它是一个以整数x开始，以整数y结束的数字序列。
最后，数据帧需要不嵌套，以便向量的每个元素都有自己的行，其他列适当地重复。
例如，下面是一个数据框：
A B
A1 -1~1
A2 1~3
A3 2~4
上述数据框应更改为以下内容：
A B
A1 -1
A1 0
A1 1
A2 1
A2 2
A2 3
A3 2
A
浏览 26提问于2017-12-21得票数 0
回答已采纳
2回答
我想知道如何按组对数据进行filter，而则保留为空的组。
示例：
year = c(1,2,3,1,2,3,1,2,3)
site = rep(c("a", "b", "d"), each = 3)
value = c(3,3,0,1,8,5,10,18,27)
df <- data.frame(year, site, value)
我想对value大于5的行进行子集。对于某些组来说，这是不正确的。函数简单地跳过空组。
我怎样才能保留空组而不是NA呢？理想情况下，我想使用dplyr函数而不是base R。
我的过滤方法，其中.prese
浏览 4提问于2020-02-19得票数 1
回答已采纳
1回答
我正在创建一个函数来计算“运行”或丢失或完整数据的数量--我想让它与dplyr::group_by一起工作，所以我把它写成一个S3方法--下面是这段代码的简化示例。
不幸的是，我发现没有引号的变量名不起作用，但是引用它，这确实起作用了，奇怪的是。
下面是带有输出的示例
fun_run <- function(data, var) {
UseMethod("fun_run")
}
fun_run.default <- function(data, var) {
var <- rlang::enquo(var)
data_pull
浏览 11提问于2017-08-02得票数 0
回答已采纳
2回答
要解除数据帧的嵌套，我可以使用：
df <- data_frame(
x = 1,
y = list(a = 1, b = 2)
)
tidyr::unnest(df)
但是，我如何在数据帧列中的列表中解锁列表呢？
df <- data_frame(
x = 1,
y = list(list(a = 1, b = 2))
)
tidyr::unnest(df)
错误：
每一列必须是向量列表或数据帧列表y。
浏览 1提问于2016-08-09得票数 20
回答已采纳
我正在尝试对长句进行标记化：
dat <- data.frame(text = c("hi i am Apple, not an orange. that is an orange","hello i am banana, not an pineapple. that is an pineapple"),
received = c(1, 0))
dat <- dat %>%
mutate(token = sent_detect(text, language = "en"))
但是我得到了
浏览 1提问于2020-05-28得票数 0
回答已采纳
我想取消列出一个变量，然后将其转换为数据框。该变量的结构如下：
> str(socialmedia$social_network_accounts, list.len = 3)
List of 2767
$ :'data.frame': 2 obs. of 2 variables:
..$ type : chr [1:2] "Twitter" "YouTube"
..$ value: chr [1:2] "https://www.twitter.com/MarinadelPilar" "https:/
浏览 15提问于2021-05-24得票数 0
回答已采纳
对于R上的嵌套数据框架，我遇到了问题。我使用了gapminder作为练习，我遵循了一本数据科学书籍作者的代码，如下所示：
library(gapminder)
by_country <- gapminder %>%
group_by(country, continent) %>%
nest()
这样，gapminder数据集就被嵌套了。每个国家只有1行，关于该国的所有数据都是“数据”列。
然后，我创建了一个函数来映射嵌套数据框架的所有单元格。调用该函数，列中的每个单元格都将有一个个人模型。
country_model <- function(df) {
浏览 1提问于2019-06-26得票数 1
2回答
我使用dplyr::do和glm按组对示例数据进行模型拟合。我想添加具有置信区间上限和下限的列:如何避免对confint进行两次调用？通常，是否有一种方法可以使用dplyr::mutate将泛型输出分配给新列
df <- data.frame(
x = rep(c("a", "b"), each=10),
y = c(rpois(10, 0.5), rpois(10, 2.2)))
sdf <- df %>%
group_by(x) %>%
do(fit=glm(y ~ 1, poisson, data=.))
mut
浏览 7提问于2016-12-14得票数 0
回答已采纳
1回答
我有一个像这样的数据框架。列名和列数将不一致(有时“C”将不存在，而其他时候“D”、“E”、“F”可能存在，等等)
# name and number of columns varies...so need flexible process
A <- c(1, 2, 1, 2, 3, 2, 1, 1, 1, 2, 1, 4, 3, 1, 2, 2, 1, 2, 4, 8)
B <- c(5, 6, 6, 5, 3, 7, 2, 1, 1, 2, 7, 4, 7, 8, 5, 7, 6, 6, 4, 7)
C <- c(9, 1, 2, 2, 1, 4, 5, 6, 7, 8,
浏览 1提问于2017-05-12得票数 0
回答已采纳
1回答
我想为跨列的多个组运行一系列线性回归。对于跨行的分组分层，我可以使用这里建议的想法()。除此之外，我还需要在不同的列中对它们进行倒退。请参阅下面我使用循环实现的代码。我想知道我是否可以使用package中的map函数和dplyr包中的group_by函数以矢量化的方式完成这两项工作，并相应地导出估计的β系数和p值。
library(dplyr)
library(broom)
head(mtcars)
vec<-names(mtcars)[3:9]
data=NULL
for (i in 1:length(vec)){
df<-mtcars%>%
group_
浏览 1提问于2020-08-18得票数 1
回答已采纳
2回答
我需要通过跨多个数字列(Var1、Var2)的分组变量(动物)来拟合许多黄土样条，并提取这些值。
我找到了执行此任务的代码--一次一个变量；
# Create dataframe 1
OneVarDF <- data.frame(Day = c(replicate(1,sample(1:50,200,rep=TRUE))),
Animal = c(c(replicate(100,"Greyhound"), c(replicate(100,"Horse")))),
Var1 = c(c(re
浏览 0提问于2020-03-04得票数 0
回答已采纳
我正在编写一份报告，为此我必须将大量类似的数据帧导出到Word中好看的表中。我的目标是一蹴而就，使用flextable生成表，使用purrr / tidyverse将所有格式化过程应用于嵌套数据框架中的所有行。这就是我的数据框架的样子：
df <- data.frame(school = c("A", "B", "A", "B", "A", "B"),
students = c(round(runif(6, 1, 10), 0)),
grade
浏览 0提问于2018-01-24得票数 2
回答已采纳
我有一个很大的数据集，我想根据特定变量的值进行分区(在我的案例生存期内)，然后对每个分区运行逻辑回归。在中@tchakravarty的回答之后，我编写了以下代码：
lifetimemodels = data %>% group_by(lifetime) %>% sample_frac(0.7)%>%
do(lifeModel = glm(churn ~., x= TRUE, family=binomial(link='logit'), data = .))
我现在的问题是，如何使用由此产生的逻辑模型来计算剩余数据(未被选择的0.3部分)上的AUC，这
浏览 2提问于2017-01-10得票数 2
这里是我想要达到的目标的一个可复制的例子。基本上，我有一个datefrom列、dateto列和一些值列，我希望为由datefrom和dateto定义的间隔的每一天创建一个时间序列。我以前是按行方式使用的，但是对于较大的数据集来说，这是相当慢的。有什么更好的表演方式吗？
library(tidyverse)
library(lubridate)
# getting some data ready
df <- tibble(datefrom = c("2019-01-01", "2019-01-01"),
dateto = c("201
浏览 4提问于2020-01-08得票数 1
回答已采纳
4回答
如何向R数据框追加行
、、、、
我已经查看了StackOverflow，但是我找不到针对我的问题的解决方案，这涉及到将行附加到R数据框中。
我正在初始化一个空的2列数据框，如下所示。
df = data.frame(x = numeric(), y = character())
然后，我的目标是遍历一个值列表，并在每次迭代中将一个值附加到列表的末尾。我从下面的代码开始。
for (i in 1:10) {
df$x = rbind(df$x, i)
df$y = rbind(df$y, toString(i))
}
我还尝试了函数c、append和merge，但没有成功。如果你有什么建议，请告诉我。
来自评论
浏览 28提问于2013-12-20得票数 126
回答已采纳
我在这里试图做的是将dplyr::select()语义引入到为dplyr::mutate()提供的函数中。下面是一个很小的例子。
dat <- tibble(class = rep(c("A", "B"), each = 10),
x = sample(100, 20),
y = sample(100, 20),
z = sample(100, 20))
.reorder_rows <- function(...) {
x <- list(...)
浏览 3提问于2017-05-17得票数 1
回答已采纳
我想根据列表的名称(包含不同的id值)将dataframe与id列和列表合并。例如：
g <- data.frame(id = c("a1", "b2"), k = c(4, 5))
h <- list(a1 = list(
p = c(1, 2, 3),
l = c("A", "B", "C"),
data = mtcars
),
b2 = list(
p = c(5, 6, 7),
l = c("M", "N", "O"),
d
浏览 0提问于2016-10-18得票数 2
回答已采纳
2回答
我有一个数据框，其中包含一个具有不同数量的整数值的列。我需要取这些值中的前五个值并将它们相加。我找到了一种方法，但似乎不能将其概括为遍历所有对象： ? 下面是第一个元素的代码： results$occupied[1] %>%
strsplit(",") %>%
as.list() %>%
unlist() %>%
head(5) %>%
as.numeric() %>%
sum() 并不适用于所有元素的是： results %>%
rowwise() %>%
select(occupied
浏览 29提问于2020-04-16得票数 0
回答已采纳
1回答
我有一个超过50个具有相同列数和行数的csv文件的列表。 我想要找出每个数据帧的缺失值百分比，并且我已经找到了适用于单个文件的代码，如下所示： missing.values <- estaciones2 %>%
gather(key = "key", value = "val") %>%
mutate(is.missing = is.na(val)) %>%
group_by(key, is.missing) %>%
summarise(num.missing = n()) %>%
filter(is.
浏览 9提问于2021-07-21得票数 0
2回答
我想将dfToAdd附加到df，其中第一个元素缺少列。重要的细节是df有2种类型的列。第一组列是相互关联的。例如，group="A“是指name="Group A”和color="Blue“。不可能是A-A组-红色组合。第二种类型的列是相互关联的。animal="Dog“action="Bark”和我想要添加第二个数据帧，其中缺少第一类列的列。这些列应该填充第一种类型的列的组合，如下面的dfResult (行的顺序无关紧要)：
df = data.frame(group = c("A", "A", "A",
浏览 2提问于2020-04-13得票数 1
回答已采纳
我是分析时间序列数据的新手，正在寻找一些帮助从一些OHLC数据中提取月度高价和低价。当我尝试聚合每月的开盘价、高价、低价和收盘价时，只提取每个月最后一个日期的值，而不是每个月的max (高)和min (低)。任何帮助都是非常感谢的。 library(tidyquant)
library(tidyverse)
amzn.prices <- tq_get("AMZN", get = "stock.prices", from = '2010-12-31', to = "2013-12-31")
monthly.amzn &l
浏览 61提问于2021-07-23得票数 0
1回答
我正在使用R中的ChickWeight数据集，我想要创建多个模型，每个模型都是为一个单独的小鸡训练的。因此，我嵌套数据，以便为每个单独的小鸡创建一个数据，并存储在list列中。
以下是开始：
library(tidyverse)
library(datasets)
data("ChickWeight")
ChickWeightNest <- ChickWeight %>%
group_by(Chick) %>%
nest()
从这里开始，在所有数据上同时训练线性回归模型非常容易，只需将模型建立为一个函数，然后突变一个新列并进行映射。然而，构建一个
浏览 1提问于2022-06-24得票数 4
好的，我只是尝试根据一个标识符/字符列重命名嵌套的tibble中的一个列：
MWE：
library(magrittr)
iris %>%
tibble::as_tibble() %>%
tidyr::nest(-Species) %>%
dplyr::mutate(
Species = as.character(Species),
data = purrr::map2(data, Species,
~dplyr::rename(.x, !!.y := Sepal.Width)))
但这将返回错误：
浏览 1提问于2019-03-09得票数 3
回答已采纳
4回答
如何在数据框中选择具有负值的列。对于下面的数据框，希望选择列x、y和z
data <- data.frame(x = c(-2,3,4), y = c(2,1,-5), z = c(1,-5,6), a = c(1,2,3))
浏览 0提问于2020-09-25得票数 1
我希望替换一些使用dplyr::do的R代码，因为这个函数很快就会被废弃。我的很多工作都需要创建分层的CDF地块。在使用dply时:是否将I分层上的变量作为变量传递给结果数据框架，然后我可以轻松地使用该变量进行绘图。
我有一个替代dplyr::do使用dplyr::group_split和purrr::map_df的解决方案。但是，我在dplyr::group_split中传递的变量在结果数据帧中没有命名。这使得绘制分层数据变得困难。如何确保在dlyr::group_split中传递的变量在结果数据框架中被命名？
下面是创建使用dplyr：：do绘制数据所需的一些代码：
library(dpl
浏览 0提问于2019-07-18得票数 3
回答已采纳
我有一个数据框架，其中一列是击键的列表。然后，我创建了一个自定义函数，将击键列表转换为最后一个单词。作为一个具体的例子，我从以下数据开始：
dat <- data.frame(word=c(1,1,2,2,2,2),
key=c("a","b","a","b","Backspace","c"))
然后，我调用下面的命令创建一个列，其中包含击键列表(重复是有意的，因为我需要保留每一个击键)：
dat <- dat %>%
group_by(w
浏览 2提问于2022-04-20得票数 1
回答已采纳
我有一个包含3个元素的列表，每个元素都有不同的值集和数值。我想把这个列表变成一个简单的两列数据格式。
一个列是list元素的值，第二个列是list元素本身的名称。
myList <- list(A = c(1,2,3),
B = c(10,20,30,40),
C = c(100,200,300,400,500))
所以理想的结果是：
Value List
1 A
2 A
10 B
100 C
......
所以我知道我可以通过一系列的粘合来做到这一点：
df &
浏览 6提问于2021-08-19得票数 2
回答已采纳
我的dataframe包含数字列和字符列，如下所示。
> df
A B C D E G
a1 b1 c1 1 2 3
a2 b2 c2 4 5 6
...
我希望使用dplyr计算数字列(D、E和G)的逐行zscores。我试过：
> df %>% rowwise() %>% mutate_if(is.numeric, ~scale(., center=T, scale=T))
> A B C D E G
a1 b1 c1 NA NA NA
a2 b2 c2 NA NA NA
我不明白为什么NA会被归还。任何关于如
浏览 1提问于2022-07-25得票数 1
回答已采纳
我发现dplyr对于汇总和总结数据来说是快速和简单的。但我无法找到如何用dplyr解决以下问题。
鉴于这些数据框架：
df_2017 <- data.frame(
expand.grid(1:195,1:65,1:39),
value = sample(1:1000000,(195*65*39)),
period = rep("2017",(195*65*39)),
stringsAsFactors = F
)
df_2017 <- df_2017[sample(1:(195*65*39),450000),]
names(df_2017) &
浏览 1提问于2018-07-30得票数 0
回答已采纳
我从网上下载了一组数据。它有6列，第6列充满了其他数据格式。因此，举一个例子：
id homeTeam homeScore awayTeam away stats
401112436 Louisville 17 Notre Dame 35 <data.frame [4 × 4]>
401112114 Oklahoma 49 Houston 31 <data.frame [4 × 4]>
401114218 USC 31
浏览 4提问于2020-04-09得票数 0
回答已采纳
3回答
我使用pivot_wider来传播我的数据。但是，存在重复的行(尽管我仍然不清楚原因)，所以重复的行被存储在“list_columns”中。我现在正在尝试识别哪些单元格已经存储为列表，并且我希望仅用列表中的第一个元素替换这些值。 示例： df <- tibble(
a = list(c("a", "b"), "c"),
b = list(1, 2),
c = c(11, 22)
) 当我在RStudio View(df)中查看这个df时，a列中的第一个单元格显示为c("a", "b"
浏览 43提问于2020-06-10得票数 2
回答已采纳
我有一个数据帧列表，某些列具有这个特殊字符->(箭头)。现在，我确实希望遍历这个数据帧列表，并使用这个-> (箭头)定位列，然后用后缀_old和_new命名新列。这是一个数据帧示例：
dput(df1)
df1 <- structure(list(v1 = c("reg->joy", "ress", "mer->dls"),
t2 = c("James","Jane", "Egg")),
cl
浏览 5提问于2019-10-24得票数 1
我的目标是获得Google Drive文件夹中所有文件的列表，以及这些文件的相关元数据。当我使用drive_ls时，它返回3列{name，id，drive_resource}。列表的结构如下: drive_resource (kind= "drive#file"，id = "abc"，...)。但是，列表中的一些内容不是由引号限定的，当不是分隔符时，有时也会使用逗号。 你知道我怎么才能正确地把这个去掉吗？我在包裹里找不到能处理这个的地方。 使用包'googledrive'，我可以获得所有文件的列表 a <- drive_ls(path =
浏览 15提问于2020-07-25得票数 0
我有几个数据帧都有相同的列名。我想合并其中每一列中的两列，以创建一个新列。 数据帧如下所示： ? 我希望输出如下所示： ? 通常，对于一个数据帧，我会很容易做到这一点： a$XY_ID <- paste(a$X,ak$Y,sep=":") 如何对列表中的所有数据帧执行此操作？ 谢谢你的帮助！
浏览 19提问于2020-10-04得票数 0
回答已采纳
我有n个数据帧，每个数据帧对应于来自一个城市的数据。 每个数据帧有3个变量，目前它们都是因子变量。 我想把它们全部转换成数值变量。 我首先创建了一个包含所有数据帧名称的向量，以便在for循环中使用。 cities <- as.vector(objects())
for ( i in cities){
i <- as.data.frame(lapply(i, function(x) as.numeric(levels(x))[x]))
} 虽然代码运行了，并且我没有得到错误代码，但我没有看到我的数据框有任何变化，因为所有三个变量都仍然是因子变量。 最奇怪的是，当一个接一个
浏览 19提问于2019-05-07得票数 0
我有一段代码运行glm，它用于生成主题响应的“中点”，该响应编码为trochiac/iambic，0或1到数字刺激列表，将中点保存为值并在控制台中打印值。
glm.1 <- glm(coderesponse~stimulus, family = binomial(link="logit"), data=data)
midpoint <- -glm.1$coefficients[1]/glm.1$coefficients[2]
cat(sprintf("file : %s\nmidpoint : %.2f",datafile,midpoint))
目前
浏览 2提问于2020-06-19得票数 0
回答已采纳
如何将下面的残差列表(beer_residuals)转换为数据框？
beer <- read.csv("http://users.stat.umn.edu/~helwig/notes/MNbeer.csv")
beer_model <- lapply(unique(beer$Style),
function(x) lm(Rating~ABV, beer[beer$Style == x,]))
beer_residuals <- lapply(beer_model, resid)
我尝试过以下几种方法，但都不起作用：
d
浏览 13提问于2021-02-26得票数 2
回答已采纳
我有以下数据：
test_new <- structure(list(PS_position = c(12871487, 12997222, 12861487,
12871491, 12934355), Region_ID = structure(c(1L, 1L, 2L, 2L,
1L), .Label = c("D", "D_left", "D_right"), class = "factor"),
chr_key = c(1, 1, 1, 1, 1), start = c(12871487, 1287148
浏览 2提问于2017-10-27得票数 1
回答已采纳
1回答
我有两只股票的每日数据(苹果和谷歌)
library(tidyquant)
dt = tidyquant::tq_get(c("AAPL", "GOOG")) %>%
arrange(symbol, date)
我试图使用以下代码将这些数据从每天转换为每周一次
result = dt %>%
group_by(symbol) %>%
tidyquant::tq_transmute(mutate_fun = to.weekly) %>% data.table
result[symbol == "AAPL" &am
浏览 3提问于2021-01-24得票数 0
回答已采纳
1回答
我有一些数据看起来有点像这样
ID year var1 var2
1 1 1 NA 0.5632595
2 1 2 0.7546097 0.5609945
3 1 3 -0.4241935 NA
4 1 4 0.4056908 0.5890453
5 2 1 -0.8049815 0.3504281
6 2 2 0.8049250 0.4817798
7 2 3 NA NA
8 2 4 -0.2969572 0.49858
浏览 3提问于2016-10-19得票数 2
回答已采纳
1回答
我有一个包含多个数据帧的列表。我想进入列表中的每个数据框，执行一个操作，该操作将为数据框中的每一行生成一个新列表，然后向包含新列表的每个数据框添加一个新列。 这里有一个玩具示例。我从ls_original开始 ls_original <- list(
a = data.frame(id = 1:2, name = c("Jon", "Mark")),
b = data.frame(id = 3:6, name = c("Matt", "Marc", "Luke", "John
浏览 17提问于2019-06-08得票数 0
回答已采纳
2回答
我已经创建了一个具有id、feat1、feat2、feat3、boolean的特征向量(data.frame)，但是在这个数据帧中有重复的id，这是有目的地完成的。我想要做的是，当我迭代这个数据帧时，为每个id构建新的数据帧。
为了简单起见，让我们假设我有以下两列。
X1 X2 X3
1 000000001 -1.4061361 1
2 000000001 -0.1973846 1
3 000000002 -0.4385071 1
4 000000001 -0.6593677 0
5 000000
浏览 0提问于2013-09-06得票数 2
4回答
我想对可能值相同的多列单独计算频率。这样做的目的是保留原始数据表中的所有列，只需为级别和聚合添加一个新的列。以下是输入数据的示例：
foo <- data.table(a = c(1,3,2,3,3), b = c(2,3,3,1,1), c = c(3,1,2,3,2))
# a b c
#1: 1 2 3
#2: 3 3 1
#3: 2 3 2
#4: 3 1 3
#5: 3 1 2
和期望的产出：
data.table(levels = 1:3, a = c(1,1,3), b = c(2,1,2), c = c(1,2,2))
# levels a b c
#1:
浏览 18提问于2022-10-24得票数 1
回答已采纳
我想从"crypto"-package加载加密货币-时间序列-数据的数据，并将其拆分成多个数据帧。下面是我的5种加密货币的代码： Bitcoin <-crypto_history('bitcoin', start_date = '20181201', end_date = '20181231')
Ethereum <-crypto_history('ethereum', start_date = '20181201', end_date = '20181231')
XR
浏览 28提问于2019-02-06得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
