Question

我正在使用cut功能切割矢量：

num_seq <- 1:2000
break_m <- seq(0, 2000, by=30)
num_broken <- cut(num_seq, breaks = break_m)
unique(num_broken)

问题是类别num_broken的显示带有e表示法例如(1.35e+03,1.38e+03]

我尝试了以下方法：

as.numeric(num_broken)

但这只是使其成为一系列数字，例如：

[1]  1  2  3  4  5  6  7  8  9 10 11 1

也尝试过这些，但没有帮助

format(unique(num_broken), digits = 10)
options(scipen=999)

如何获得类似(1350,1380]的输出

Answer 1

尝试一下：

#Code
num_seq <- 1:2000
break_m <- seq(0, 2000, by=30)
num_broken <- cut(num_seq, breaks = break_m,dig.lab = 10)
unique(num_broken)

出局：

 [1] (0,30]      (30,60]     (60,90]     (90,120]    (120,150]   (150,180]   (180,210]  
 [8] (210,240]   (240,270]   (270,300]   (300,330]   (330,360]   (360,390]   (390,420]  
[15] (420,450]   (450,480]   (480,510]   (510,540]   (540,570]   (570,600]   (600,630]  
[22] (630,660]   (660,690]   (690,720]   (720,750]   (750,780]   (780,810]   (810,840]  
[29] (840,870]   (870,900]   (900,930]   (930,960]   (960,990]   (990,1020]  (1020,1050]
[36] (1050,1080] (1080,1110] (1110,1140] (1140,1170] (1170,1200] (1200,1230] (1230,1260]
[43] (1260,1290] (1290,1320] (1320,1350] (1350,1380] (1380,1410] (1410,1440] (1440,1470]
[50] (1470,1500] (1500,1530] (1530,1560] (1560,1590] (1590,1620] (1620,1650] (1650,1680]
[57] (1680,1710] (1710,1740] (1740,1770] (1770,1800] (1800,1830] (1830,1860] (1860,1890]
[64] (1890,1920] (1920,1950] (1950,1980] <NA>       
66 Levels: (0,30] (30,60] (60,90] (90,120] (120,150] (150,180] (180,210] ... (1950,1980]

在不使用e格式的情况下以R显示剪切类别

1 个答案: