小编Kim*_*ins的帖子

将数据帧转换为嵌套 json 格式

我正在处理 ar 数据框,如下所示。

       id    date           items        price
       10    2014/09/13     shoes        187
       10    2014/09/13      belt         35
       10    2014/09/14     shirt         69
       12    2014/10/01     dress         58
       12    2014/10/01       bag        118
       12    2015/01/03     shoes        115

purchase = structure(list(id = c(10, 10, 10, 12, 12, 12), date = structure(c(1L, 
1L, 2L, 3L, 3L, 4L), .Label = c("2014/09/13", "2014/09/14", "2014/10/01", 
"2015/01/03"), class = "factor"), name = structure(c(5L, 2L, 
4L, 3L, 1L, 5L), .Label = c("bag", "belt", "dress", "shirt", 
"shoes"), class = "factor"), price = c(187, 35, …
Run Code Online (Sandbox Code Playgroud)

json r jsonlite

5
推荐指数
1
解决办法
1861
查看次数

从字符串中删除最后一个尾随下划线

我试图使用R从字符串中删除最后一个尾随下划线(_)

例如,

  Col1
  TX_
  AZ_TX
  CA_LX
  CHI_
  KS_
Run Code Online (Sandbox Code Playgroud)

上面的字符串应该是这样的

  Col1
  TX
  AZ_TX
  CA_LX
  CHI
  KS
Run Code Online (Sandbox Code Playgroud)

只有尾随_消失了.我试过sub("_", "", my_dataframe$my_column)但这会从字符串中删除所有_.我只是在寻找一个删除最后尾随_而不是全部的函数.有任何想法吗 ?

string r gsub

5
推荐指数
1
解决办法
1267
查看次数

嵌套If语句日期

我有一个数据框df如下.

Id     ProcessDate
10     2011-12-29 14:14:00
11     2011-12-29 14:16:00
12     2011-12-29 14:14:00
13     2011-12-29 14:20:00
14     2011-12-29 14:49:00
15     2011-12-29 14:51:00
16     2011-12-29 14:53:00
17     2011-12-29 15:11:00
18     2011-12-29 15:13:00 
19     2011-12-29 15:10:00
20     2011-12-29 15:21:00
21     2011-12-29 14:34:00
22     2011-12-29 15:26:00  
Run Code Online (Sandbox Code Playgroud)

我正在尝试创建第三列Status,{Before, during , after }根据此条件包含这三个值中的任何一个.

 if  (df$ProcessDate < 2011-12-29 14:48:00)
 then  df$Status = "Before"
 else if (df$ProcessDate > 2011-12-29 14:48:00 & df$ProcessDate < 2011-12-29 15:16:00)
 then  df$Status = "Between"
 else  df$Status = …
Run Code Online (Sandbox Code Playgroud)

if-statement r dataframe

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

标签 统计

r ×3

dataframe ×1

gsub ×1

if-statement ×1

json ×1

jsonlite ×1

string ×1