r - 如何在R中旋转包含带有部分和子部分的列的数据框-6ren

r - 如何在R中旋转包含带有部分和子部分的列的数据框

转载作者：行者123 更新时间：2023-12-03 14:43:24

我有一个下面提到的数据框:

structure(
  list(ID = c("P-1", " P-1", "P-1", "P-2", "P-3", "P-4", "P-5", "P-6", "P-7",
              "P-8"),
       Date = c("2020-03-16 12:11:33", "2020-03-16 13:16:04",
                "2020-03-16 06:13:55", "2020-03-16 10:03:43",
                "2020-03-16 12:37:09", "2020-03-16 06:40:24",
                "2020-03-16 09:46:45", "2020-03-16 12:07:44",
                "2020-03-16 14:09:51", "2020-03-16 09:19:23"),
       Status = c("SA", "SA", "SA", "RE", "RE", "RE", "RE", "XA", "XA", "XA"),
       Flag = c("L", "L", "L", NA, "K", "J", NA, NA, "H", "G"),
       Value = c(5929.81, 5929.81, 5929.81, NA, 6969.33, 740.08, NA, NA, 1524.8,
                 NA),
       Flag2 = c("CL", "CL", "CL", NA, "RY", "", NA, NA, "", NA),
       Flag3 = c(NA, NA, NA, NA, "RI", "PO", NA, "SS", "DDP", NA)),
  .Names=c("ID", "Date", "Status", "Flag", "Value", "Flag2", "Flag3"),
  row.names=c(NA, 10L), class="data.frame")

我正在使用下面提到的代码:

    df %>% mutate(L = ifelse(Flag == "L",1,0),
                  K = ifelse(Flag == "K",1,0),
                  # etc for Flag) %>%
      mutate(sub_status = NA) %>%
      mutate(sub_status = ifelse(!is.na(Flag2) & Flag3 == 0, "a", sub_status),
             sub_status = ifelse(is.na(Flag2) & Flag3 != 0, "b", sub_status),
             # etc for sub-status) %>%
      mutate(value_class = ifelse(0 <= Value & Value <= 15000, "0-15000",
                                  "15000-50000")) %>%
      group_by(Date, status, sub_status, value_class) %>%
      summarise(L = sum(L),
                K = sum(K),
                # etc
                count = n())

这为我提供了以下输出:

    Date         Status  sub_status   value_class G H I J K L NA Count
    2020-03-20   SA      a            0-15000     0 0 0 0 1 1 0  2
    2020-03-20   SA      b            0-15000     0 0 0 0 1 0 0  1
    ................
    ................

我想使用 DF 获得以下输出，其中 Status列具有不同的 3 个值和 Flag2具有值或 [null] 或 NA，最后是 Flag3列具有 [null] 或 NA 的不同 7 个值。对于一个不同的 ID我们有多个条目 Flag3柱子。

我需要通过基于 Value 创建一个 3 组来创建以下数据框比如 0-15000、15000-50000。

如果对于不同的 ID Flag2具有除 0 或 [null]/NA 以外的某些值，但 Flag3值为 0 或 [null]/NA 那么它将是 a .

如果对于不同的 ID Flag3具有除 0 或 [null]/NA 以外的某些值，但 Flag2值为 0 或 [null]/NA 那么它将是 b

如果对于不同的 ID，Flag2 & Flag3具有除 0 或 [Null]/NA 以外的其他值，则为 c

如果对于不同的 ID，Flag2 & Flag3值为 0 或 [Null]/NA，它将是 d

我想用 percent 将上面提到的 datafrmae 安排在以下结构中和 Total柱子。

我提到了像 2/5 这样的百分比。显示状态将除以总计，而 sub_status将除以它们各自的 Status .

16/03/2020         0 - 15000                    15000 - 50000
Status  count   percent  L K J H G [Null]    count   percent  L K J H G [Null]   Total
SA        1 1/8 (12.50%) 1 0 0 0 0   0         0       -      0 0 0 0 0    0       1
a         1 1/1(100.00%) 1 0 0 0 0   0         0       -      0 0 0 0 0    0       1
b         0       -      0 0 0 0 0   0         0       -      0 0 0 0 0    0       0
c         0       -      1 0 0 0 0   0         0       -      0 0 0 0 0    0       0
d         0       -      0 0 0 0 0   0         0       -      0 0 0 0 0    0       0
RE        4      50.00%  0 1 1 0 0   2         0       -      0 0 0 0 0    0       4
a         0        -     0 0 0 0 0   0         0       -      0 0 0 0 0    0       0
b         1      25.00%  0 0 1 0 0   1         0       -      0 0 0 0 0    0       1
c         1      25.00%  0 1 0 0 0   1         0       -      0 0 0 0 0    0       1
d         2      50.00%  0 0 0 0 0   2         0       -      0 0 0 0 0    0       2
XA        3      37.50%  0 0 0 1 1   1         0       -      0 0 0 0 0    0       3
a         0        -     0 0 0 0 0   0         0       -      0 0 0 0 0    0       0
b         2      66.67%  0 0 0 1 0   1         0       -      0 0 0 0 0    0       2
c         0        -     0 0 0 0 0   0         0       -      0 0 0 0 0    0       0
d         1      33.33%  0 0 0 0 1   0         0       -      0 0 0 0 0    0       1
Total     8     100.00%  1 1 0 0 1   3         0       -      0 0 0 0 0    0       8

如果数据框没有根据 startdate 的最新日期，我已经提到了基于最新日期 16/03/2020 的所需输出。将所有值 0 保留在输出数据帧中。百分比列仅供引用，将计算百分比值。

另外，我想保持结构静态。例如，如果某一天不存在任何参数，则输出结构将与 0 值相同。

例如，假设日期 17/03/2020没有任何状态为 SA 的行或子状态 c占位符将出现在输出中，值为 0 .

最佳答案

希望这足以让您开始，更进一步，我需要一个看起来像是来自 R 的预期输出，并进一步解释如何计算变量。

library(tidyverse)
df <- structure(
  list(ID = c("P-1", " P-1", "P-1", "P-2", "P-3", "P-4", "P-5", "P-6", "P-7",
              "P-8"),
       Date = c("2020-03-16 12:11:33", "2020-03-16 13:16:04",
                "2020-03-16 06:13:55", "2020-03-16 10:03:43",
                "2020-03-16 12:37:09", "2020-03-16 06:40:24",
                "2020-03-16 09:46:45", "2020-03-16 12:07:44",
                "2020-03-16 14:09:51", "2020-03-16 09:19:23"),
       Status = c("SA", "SA", "SA", "RE", "RE", "RE", "RE", "XA", "XA", "XA"),
       Flag = c("L", "L", "L", NA, "K", "J", NA, NA, "H", "G"),
       Value = c(5929.81, 5929.81, 5929.81, NA, 6969.33, 740.08, NA, NA, 1524.8,
                 NA),
       Flag2 = c("CL", "CL", "CL", NA, "RY", "", NA, NA, "", NA),
       Flag3 = c(NA, NA, NA, NA, "RI", "PO", NA, "SS", "DDP", NA)),
  .Names=c("ID", "Date", "Status", "Flag", "Value", "Flag2", "Flag3"),
  row.names=c(NA, 10L), class="data.frame")

df2 <- df %>%
  mutate(
    # add variables
    Value = ifelse(0 <= Value & Value <= 15000, "0-15000", "15000-50000"),
    substatus = case_when(
      !is.na(Flag2) & is.na(Flag3) ~ "a",
      !is.na(Flag3) & is.na(Flag2) ~ "b",
      !is.na(Flag3) & !is.na(Flag2) ~ "c",
      TRUE ~ "d"),
    # make Date an actual date rather than a timestamp
    Date = as.Date(Date),
    # remove obsolete columns
    Flag2 = NULL,
    Flag3 = NULL,
    ID = NULL,
    # renames NAs into the name of the desired column
    Flag = ifelse(is.na(Flag), "[Null]", Flag),
    # create column of 1 for pivot
    temp = 1,
    # and row id
    id = row_number()
    ) %>%
  # create new columns L K etc, this also drops the Flag col
  pivot_wider(names_from = "Flag", values_from = "temp", values_fill = list(temp=0)) %>%
  # move `[Null]` column to the end
  select(everything(), -`[Null]`, `[Null]`) %>%
  mutate(
    id = NULL,
    count = 1,
    Total = rowSums(select(., L:`[Null]`))) 
df2
#> # A tibble: 10 x 12
#>    Date       Status Value substatus     L     K     J     H     G `[Null]`
#>    <date>     <chr>  <chr> <chr>     <dbl> <dbl> <dbl> <dbl> <dbl>    <dbl>
#>  1 2020-03-16 SA     0-15~ a             1     0     0     0     0        0
#>  2 2020-03-16 SA     0-15~ a             1     0     0     0     0        0
#>  3 2020-03-16 SA     0-15~ a             1     0     0     0     0        0
#>  4 2020-03-16 RE     <NA>  d             0     0     0     0     0        1
#>  5 2020-03-16 RE     0-15~ c             0     1     0     0     0        0
#>  6 2020-03-16 RE     0-15~ c             0     0     1     0     0        0
#>  7 2020-03-16 RE     <NA>  d             0     0     0     0     0        1
#>  8 2020-03-16 XA     <NA>  b             0     0     0     0     0        1
#>  9 2020-03-16 XA     0-15~ c             0     0     0     1     0        0
#> 10 2020-03-16 XA     <NA>  d             0     0     0     0     1        0
#> # ... with 2 more variables: count <dbl>, Total <dbl>

# As you didn't tell what to do with NA values so I left them as NA 

bind_rows(
  df2 %>%
    # add missing combinations of abcd
    complete(nesting(Date, Status, Value), substatus) %>%
    group_by(Date, Value, Status, substatus) %>% 
    summarize_all(~sum(., na.rm=TRUE)) %>%
    group_by(Status, Value) %>%
    mutate(percent = paste(round(100 * Total / sum(Total), 2), "%")) %>%
    ungroup(),
  df2 %>% 
    mutate(substatus = Status, Status = paste0(Status, "_")) %>%
    group_by(Date, Value, Status, substatus) %>% 
    mutate(count = n()) %>%
    group_by(count, add = TRUE) %>%
    summarize_all(~sum(., na.rm=TRUE)) %>%
    group_by(Value) %>%
    mutate(percent = paste(round(100 * Total / sum(Total), 2), "%"))
) %>%
  arrange(Date, Value, desc(Status)) %>%
  mutate(Status = NULL) %>%
  rename(Status = substatus) %>%
  print(n=Inf)
#> # A tibble: 25 x 12
#>    Date       Value Status     L     K     J     H     G `[Null]` count Total
#>    <date>     <chr> <chr>  <dbl> <dbl> <dbl> <dbl> <dbl>    <dbl> <dbl> <dbl>
#>  1 2020-03-16 0-15~ XA         0     0     0     1     0        0     1     1
#>  2 2020-03-16 0-15~ a          0     0     0     0     0        0     0     0
#>  3 2020-03-16 0-15~ b          0     0     0     0     0        0     0     0
#>  4 2020-03-16 0-15~ c          0     0     0     1     0        0     1     1
#>  5 2020-03-16 0-15~ d          0     0     0     0     0        0     0     0
#>  6 2020-03-16 0-15~ SA         3     0     0     0     0        0     3     3
#>  7 2020-03-16 0-15~ a          3     0     0     0     0        0     3     3
#>  8 2020-03-16 0-15~ b          0     0     0     0     0        0     0     0
#>  9 2020-03-16 0-15~ c          0     0     0     0     0        0     0     0
#> 10 2020-03-16 0-15~ d          0     0     0     0     0        0     0     0
#> 11 2020-03-16 0-15~ RE         0     1     1     0     0        0     2     2
#> 12 2020-03-16 0-15~ a          0     0     0     0     0        0     0     0
#> 13 2020-03-16 0-15~ b          0     0     0     0     0        0     0     0
#> 14 2020-03-16 0-15~ c          0     1     1     0     0        0     2     2
#> 15 2020-03-16 0-15~ d          0     0     0     0     0        0     0     0
#> 16 2020-03-16 <NA>  XA         0     0     0     0     1        1     2     2
#> 17 2020-03-16 <NA>  a          0     0     0     0     0        0     0     0
#> 18 2020-03-16 <NA>  b          0     0     0     0     0        1     1     1
#> 19 2020-03-16 <NA>  c          0     0     0     0     0        0     0     0
#> 20 2020-03-16 <NA>  d          0     0     0     0     1        0     1     1
#> 21 2020-03-16 <NA>  RE         0     0     0     0     0        2     2     2
#> 22 2020-03-16 <NA>  a          0     0     0     0     0        0     0     0
#> 23 2020-03-16 <NA>  b          0     0     0     0     0        0     0     0
#> 24 2020-03-16 <NA>  c          0     0     0     0     0        0     0     0
#> 25 2020-03-16 <NA>  d          0     0     0     0     0        2     2     2
#> # ... with 1 more variable: percent <chr>

关于r - 如何在R中旋转包含带有部分和子部分的列的数据框，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/61145404/

文章推荐： HTML filepicker multi - 获取正在使用的文件

文章推荐： ms-access - 如何循环访问MS Access DB中的所有表

文章推荐： reactjs - React Native 中的 float 自动完成

iPhone，旋转 + EAGLView，旋转 =
...沮丧。我希望我的游戏仅在横向模式下运行。我已将适当的键/值添加到 Info.plist 文件中，以强制设备方向在启动时正确。我现在正在尝试旋转 OpenGL 坐标空间以匹配设备的坐标空间。我正
java - 我将如何创建一个旋转矩阵，将 X 旋转 a，Y 旋转 b，Z 旋转 c？
我如何创建一个旋转矩阵，将 X 旋转 a，Y 旋转 b，Z 旋转 c？我需要公式，除非您使用的是 ardor3d api 的函数/方法。矩阵是这样设置的 xx, xy, xz, yx, yy, y
c++ - 从全局位置/旋转/比例更新本地位置/旋转/比例？
假设我有一个包含 3 个 vector 的类(一个用于位置，一个用于缩放，一个用于旋转)我可以使用它们生成一个变换矩阵，该矩阵表示对象在 3D 空间中的位置、旋转和大小。然后我添加对象之间的父/子关系
javascript - CSS 旋转。旋转 div 但保持在完全相同的坐标？
所以我只是在玩一个小的 javascript 游戏，构建一个 pacman 游戏。你可以在这里看到它:http://codepen.io/acha5066/pen/rOyaPW 不过我对旋转有疑问。你
iphone - iOS 旋转 MKAnnotationView 以响应 MKMapView 旋转
在我的应用程序中，我有一个 MKMapView，其中显示了多个注释。 map 根据设备的航向旋转。要旋转 map ，请执行以下语句(由方法 locationManager 调用:didUpdateHe
javascript - 旋转 90/-90 度的图像模糊 jquery 旋转
使用此 jquery 插件时:http://code.google.com/p/jqueryrotate/wiki/Documentation我将图像旋转 90 度，无论哪个方向，它们最终都会变得模糊
css - 为什么不同的 CSS3 旋转 + 平移 vs 旋转 + 左
我有以下代码:CSS: .wrapper { margin:80px auto; width:300px; border:none; } .square { widt
Qt图像移动/旋转
我只想通过小部件的轴移动图像并围绕小部件的中心旋转(就像任何数字绘画软件中的 Canvas )，但它围绕其左顶点旋转...... QPainter p(this); QTransform trans;
JavaScript 旋转
我需要先旋转图像，然后再将其加载到 Canvas 中。据我所知，我无法使用 canvas.rotate() 旋转它，因为它会旋转整个场景。有没有好的JS方法来旋转图片？ [不依赖于浏览器的方式] 最
安卓横屏180°旋转
我需要知道我的 Android 设备屏幕何时从一个横向旋转到另一个横向(rotation_90 到 rotation_270)。在我的 Android 服务中，我重新实现了 onConfigurati
Python图像处理丨图像缩放、旋转、翻转与图像平移
**摘要：**本篇文章主要讲解Python调用OpenCV实现图像位移操作、旋转和翻转效果，包括四部分知识：图像缩放、图像旋转、图像翻转、图像平移。本文分享自华为云社区《[Python图像处理] 六
metal - 旋转，平移和默认相机位置
我只是在玩MTKView中的模板设置；并且，我一直在尝试了解以下内容：相机的默认位置。使用MDLMesh和MTKMesh创建基元时的默认位置。为什么轮换还涉及翻译。相关代码： matrix_f
旋转 ggplot 树状图的标签
我正在尝试使用包 dendexend 创建一个树状图。它创建了非常好的 gg 树状图，但不幸的是，当你把它变成一个“圆圈”时，标签跟不上。我将在下面提供一个示例。我的距离对象在这里:http://s
旋转 ggplot2 绘图对象
我想将一个完整的 ggplot 对象旋转 90°。我不想使用 coord_flip因为这似乎会干扰 scale="free"和 space="free"使用刻面时。例如: qplot(as.fac
人类的 opengl 旋转
我目前可以通过首先平移到轴心点然后执行旋转最后平移回原点来围绕轴心点旋转。在我的例子中，我很容易为肩膀做到这一点。但是，我不知道如何为前臂添加绕肘部的旋转。我已经尝试了以下围绕肘部旋转的前臂: 平移
jQuery 旋转/变换
我想使用此功能旋转然后停止在特定点或角度。现在该元素只是旋转而不停止。代码如下: $(function() { var $elie = $("#bkgimg");
iPhone UIImageView 旋转
关闭。这个问题需要多问focused 。目前不接受答案。想要改进此问题吗？更新问题，使其仅关注一个问题 editing this post . 已关闭 4 年前。 Improve this ques
iphone - 基本关键帧动画(旋转)
我正在尝试创建一个非常简单的关键帧动画，其中图形通过给定的中点从一个角度旋转到另一个角度。 (目的是能够通过大于 180 度的 OBTUSE 弧角来制作旋转动画，而不是让动画“作弊”并走最短路线，即通
cocoa - 旋转 NSView
我需要旋转 NSView 实例的框架，使其宽度变为其高度，其高度变为其宽度。该 View 包含一个字符串，并且该字符串也被旋转，这一点很重要。我查看了 NSView 的 setFrameRotati
Javascript - 图像不循环/旋转
我正在编写一个脚本，用于在 javascript 中旋转/循环浏览图像，同时遵守循环浏览图像的次数限制。我所拥有的如下: var delay = 3000; //6000 = change to

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

r - 如何在R中旋转包含带有部分和子部分的列的数据框