Rバイナリ変数をカットに基づいて

Question

データフレームをカットした後、値がカットと交互になるようにバイナリフィールド（下記参照）をどのように追加できますか？

x cut desired 
1.1 (1, 2] 0 
1.5 (1, 2] 0 
1.6 (1, 2] 0 
2.5 (2, 3] 1 
3 (2, 3] 1 
3.5 (3, 4] 0 
3.5 (3, 4] 0 
3.7 (3, 4] 0 

目標は2つだけの色を除いてthisと類似色でヒストグラムをggplotすることである。

（説明のためにのみ - 上記の値に対応していない）

Answer 1

あなたができこの方法を試してください。

set.seed(1) 
val <- sort(rnorm(100)) 
df <- data.frame(x = val, cut = cut(val,30)) 
df$desired <- as.numeric(df$cut) %% 2 

head(df, 10) 
#   x   cut cut_num desired 
# 1 -2.214700 (-2.22,-2.06]  1  1 
# 2 -1.989352 (-2.06,-1.91]  2  0 
# 3 -1.804959 (-1.91,-1.75]  3  1 
# 4 -1.523567 (-1.6,-1.45]  5  1 
# 5 -1.470752 (-1.6,-1.45]  5  1 
# 6 -1.377060 (-1.45,-1.29]  6  0 
# 7 -1.276592 (-1.29,-1.14]  7  1 
# 8 -1.253633 (-1.29,-1.14]  7  1 
# 9 -1.224613 (-1.29,-1.14]  7  1 
# 10 -1.129363 (-1.14,-0.984]  8  0 

編集： カットの途切れが空であることに注意してください（この例ではcut_num == 4を参照してください）。この場合、一見連続した折れ目は同じdesiredラベルになります。