小编dar*_*age的帖子

R中的部分颜色直方图

在此输入图像描述

我有一个直方图,如图所示.我希望两个区域中的条纹分别用红色和绿色着色,即从0到左边第一个黑色边框的条形应为红色,第二个区域中的条形应为绿色.这可以在R中完成吗?用于获取直方图的代码是

hist(pr4$x[pr4$x[,1]>-2,1],breaks=100)
Run Code Online (Sandbox Code Playgroud)

r colors histogram

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

获得与每个四分位数相对应的观察

q <- quantile(faithful$eruptions)
> q
     0%     25%     50%     75%    100% 
1.60000 2.16275 4.00000 4.45425 5.10000 
Run Code Online (Sandbox Code Playgroud)

我得到以下结果,数据集在R中提供.

 head(faithful)
  eruptions waiting
1     3.600      79
2     1.800      54
3     3.333      74
4     2.283      62
5     4.533      85
6     2.883      55
Run Code Online (Sandbox Code Playgroud)

我想要一个包含数据的数据帧和一个额外的列,用于指出每个观察所属的分位数.例如,最终数据集应如下所示

     eruptions waiting Quartile
1     3.600      79      Q1
2     1.800      54      Q2
3     3.333      74
4     2.283      62
5     4.533      85
6     2.883      55
Run Code Online (Sandbox Code Playgroud)

如何才能做到这一点?

r quantile dataframe

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

比较 R 中的时间

我有两列,例如 A 和 B(时间格式为 HH:MM)

  A       B
00:00   06:00
Run Code Online (Sandbox Code Playgroud)

str(A) 和 str(B) 给出“字符”。

我想做一个比较,例如,

Comment <- ifelse(hour_part(A) < hour_part(B), "Dead","NONE")
Run Code Online (Sandbox Code Playgroud)

我想用 R 来做。

在 R 中如何做到这一点?

time timestamp r

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

使用 sapply 的中值插补

我想替换数据框列中的缺失值。我写了以下代码

MedianImpute <- function(data=data)
     {
      for(i in 1:ncol(data))
        {        
        if(class(data[,i]) %in% c("numeric","integer"))
          {
          if(sum(is.na(data[,i])))
            {
            data[is.na(data[,i]),i] <- 
                          median(data[,i],na.rm = TRUE)
            }
          }
        }
      return(data)
      }
Run Code Online (Sandbox Code Playgroud)

这将返回 NA 被列中位数替换的数据帧。我不想使用 for 循环,如何使用 R 中的任何应用函数获得相同的结果?

for-loop r apply missing-data

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

将数据帧与不相等的列数组合在一起

假设我有两个数据帧,Dat1和Dat2,

Dat1
Col1 Col2 Col3
A1    56   89
Run Code Online (Sandbox Code Playgroud)

Dat2
Col1 Col2 Col4 Col5
A2   49    84   F11
Run Code Online (Sandbox Code Playgroud)

最后,我想要一个看起来像的组合数据框架

Col1 Col2 Col3 Col4 Col5
A1    56   89   NA    NA
A2    49   NA   84    F11
Run Code Online (Sandbox Code Playgroud)

是否有可能在R中实现这一目标?

r

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

将列表从tapply(.)转换为R中的data.frame

我有以下代码

t <- tapply(z[,3],z[,1],summary)
# > t
# $AUS
#     Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
# -0.92420 -0.57920  0.08132 -0.13320  0.35940  0.39650 
# 
# $NZ
#     Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
# -1.80700 -0.98980 -0.98310 -0.57470  0.02292  0.88330 
Run Code Online (Sandbox Code Playgroud)

我希望它显示为

            Min.  1st Qu.   Median     Mean  3rd Qu.     Max.
Aus     -0.92420 -0.57920  0.08132 -0.13320  0.35940  0.39650
NZ      -1.80700 -0.98980 -0.98310 -0.57470  0.02292  0.88330 
Run Code Online (Sandbox Code Playgroud)

如何在R中完成?

r dataframe tapply

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

在列中使用逗号读取CSV文件

我有一个包含6列的csv文件,其中一列的文本用逗号分隔,例如BOLT,RD HD SQ SHORT NECK,METRIC.

当我在R中读取此文件时,此列中存在溢出,随后数据移动到新行.

下面我贴了几行

014003051906,ETN5080,0450,螺栓套件上轴,5速,1.000,F 014003051906,ETN5967,0460,传感器传感器FH后挡板,1.000,F 014003051906,ETN64267,0470,倾斜装置传感器,1.000,F

014003065376,03M7184,0020,BOLT - M 8.0 X 1.250 X 20.0 - 8.8-Zinc,4.000,G 014003065376,03M7386,0090,BOLT,RD HD SQ短颈,公制,18.000,G 014003065376,14M7296,0090,NUT,METRIC ,HEX FLANGE,14.000,G

最后两行是问题所在."NUT,METRIC,HEX FLANGE"应该归入一个变量.

怎么解决这个问题?

csv r

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

闪亮的表格中的文本输入列

我有一个闪亮的输出表。我希望将一列附加到表格中,该列将从用户的每行输入文本(评论)。

这可以在 R 中完成吗?

r shiny

0
推荐指数
1
解决办法
2193
查看次数

标签 统计

r ×8

dataframe ×2

apply ×1

colors ×1

csv ×1

for-loop ×1

histogram ×1

missing-data ×1

quantile ×1

shiny ×1

tapply ×1

time ×1

timestamp ×1