小编Sta*_*taq的帖子

如何将两个数据框合并在一起并满足一些条件要求?

我有两个数据框,df1并且df2. 我想加入两者,但需满足以下条件:

  1. 将 df1 和 df2 合并到genderandTest
  2. TestDate需要df1在内部Date1Date2来自df2
  3. all.x = TRUE(保留df1记录)

我该如何处理第二部分?

在此输入图像描述

df1 <- structure(list(ID = c(1, 2, 3, 5, 4), Gender = c("F", "M", "M", 
"F", "F"), TestDate = structure(c(17897, 17898, 18630, 18262, 
17900), class = "Date"), Test = c("Weight", "Weight", "ELA", 
"ELA", "Math")), row.names = c(NA, -5L), class = c("tbl_df", 
"tbl", "data.frame"))


df2 <- structure(list(Test = c("Weight", "Weight", "ELA", "ELA", "ELA", 
"ELA", …
Run Code Online (Sandbox Code Playgroud)

r dataframe

12
推荐指数
3
解决办法
1219
查看次数

造一句话概括一个简单的数据框

我有一个简单的 df 如下,我想为其创建一个摘要符号。最有效的构建方法是什么?有人可以指导我吗?

在此输入图像描述

我想要构建的摘要是: There are 2 students in ELA: G8-01, G9-08; There are 2 students in MATH: G8-09, G9-06; There is 1 student in ART: G9-04.

structure(list(ID = c("G8-01", "G8-09", "G9-08", "G9-04", "G9-05", 
"G9-06", "G9-07"), ELA = c("G8-01", NA, "G9-08", NA, NA, NA, 
NA), MATH = c(NA, "G8-09", NA, NA, NA, "G9-06", NA), PE = c(NA, 
NA, NA, NA, NA, NA, NA), ART = c(NA, NA, NA, "G9-04", NA, NA, 
NA)), row.names = c(NA, -7L), class = c("tbl_df", "tbl", …
Run Code Online (Sandbox Code Playgroud)

r dataframe

5
推荐指数
3
解决办法
141
查看次数

如何将变量名称和标签从 sas7bdat 获取到 data.frame 中

我正在将一组 sas 数据读入 r 中。我想知道是否有一个代码可以用来将变量名称和变量标签放入 data.frame 中,或者像密码本一样?

我使用haven包来读取数据

haven:read_sas
Run Code Online (Sandbox Code Playgroud)

我想知道它是否将数据标签保存在某个地方。如果是的话,我可以把它拿出来吗?

r 中的数据如下所示:

在此输入图像描述

我想构建一个如下所示的 data.frame:

在此输入图像描述

错误代码:

<error/purrr_error_bad_element_vector>
Result 6 must be a single string, not NULL of length 0
Backtrace:
     x
  1. +-base::debug(list_of_labels <- lapply(datasets, label_lookup_map))
  2. +-base::lapply(datasets, label_lookup_map)
  3. | \-global::FUN(X[[i]], ...)
  4. |   \-tibble::tibble(col_name = df %>% names(), labels = df %>% map_chr(attr_getter("label")))
  5. |     \-tibble:::tibble_quos(xs[!is_null], .rows, .name_repair)
  6. |       \-rlang::eval_tidy(xs[[j]], mask)
  7. +-df %>% map_chr(attr_getter("label"))
  8. | +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9. | \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
 10. |   \-base::eval(quote(`_fseq`(`_lhs`)), …
Run Code Online (Sandbox Code Playgroud)

r

3
推荐指数
1
解决办法
2706
查看次数

如何用不同的符号进行计算

我有一个 df,我想使用 进行简单的计算test*factor。我该如何处理值前面的符号?

在此输入图像描述

df<-structure(list(test = structure(c(3L, 2L, 5L, 4L, 1L), .Label = c("<=1.5", 
"<5", ">=1", ">7.8", "6"), class = "factor"), factor = c(2, 4, 
6, 9, 8)), row.names = c(NA, -5L), class = "data.frame")
Run Code Online (Sandbox Code Playgroud)

string r

3
推荐指数
4
解决办法
120
查看次数

如何更改条形颜色而不在图例中显示它

我有一个如下所示的情节。我想: Q1:替换darkgreylightgrey颜色而不显示在图例中。是否可以?

Q2:灰色部分可以有图例吗?也许将其设置为“Length1-Length2”?它将沿着图例站立,而不是将其添加到 ID 图例中。

在此输入图像描述

df<- structure(list(ID = c("A", "B", "C", "D"), Length1 = c(15, 12, 
6, 9), Length2 = c(7, 8, 3, 9)), row.names = c(NA, -4L), class = c("tbl_df", 
"tbl", "data.frame"))
ggplot(data = df)  +
   geom_bar(aes(y =  ID, x = Length1), stat = "identity")+ 
   geom_bar(aes(y =  ID, x = Length2, fill = ID), stat = "identity")
Run Code Online (Sandbox Code Playgroud)

r ggplot2

2
推荐指数
1
解决办法
31
查看次数

如何将“difftime”更改为数字

我有一些看起来像这样的变量:

在此输入图像描述

当我尝试绘制它时,我会收到错误代码discrete value supplied to continuous scale。所以我必须将其更改为数字。我有多个这种类型的变量。这是我将它们一次性全部转换为数字的方法吗?

r

-2
推荐指数
1
解决办法
4001
查看次数

标签 统计

r ×6

dataframe ×2

ggplot2 ×1

string ×1