Skip to content

Instantly share code, notes, and snippets.

@sithjaisong
Last active October 16, 2016 08:33
Show Gist options
  • Save sithjaisong/fd4eb6297a0387e55374 to your computer and use it in GitHub Desktop.
Save sithjaisong/fd4eb6297a0387e55374 to your computer and use it in GitHub Desktop.
reorder row follwoing name of variable
dat <- read_csv("/Users/sithjaisong/Desktop/ycom.csv") # โหลดไฟล์ที่ต้องการ
# ตอนนี้ข้อมูลที่ผมมีนั้น จะเห็นว่า trt ที่เรียงนั้น มันถูกเรียงตาม rep
head(dat)
Source: local data frame [6 x 15]
trt rep sm sm y moi hill panicle sunk mc_sunk float_sunk mc_float tgw sunk mc_tgw_sunk tgw float mc_tgw_float
(chr) (int) (int) (dbl) (dbl) (int) (int) (dbl) (dbl) (dbl) (dbl) (dbl) (dbl) (dbl) (dbl)
1 PR 1 1 2.320 14.0 108 214 261.8 13.1 64.1 14.0 24.548 12.80 3.425 14.0
2 PR 1 2 2.570 15.6 108 230 283.8 13.7 62.1 14.5 23.958 12.20 3.524 14.2
3 PR 1 3 2.485 13.8 108 202 255.6 13.4 56.9 13.1 24.315 12.40 3.510 13.2
4 DT 1 1 2.295 14.0 108 240 268.3 13.2 73.7 13.3 24.241 12.60 3.729 14.0
5 DT 1 2 0.205 13.7 108 235 252.7 14.3 68.9 15.2 24.375 14.10 3.295 14.9
6 DT 1 3 2.110 13.6 108 246 272.0 14.1 91.8 14.5 24.108 13.87 4.402 14.0
# แต่ผมจะเรียงตาม trt อย่างนี้
target <- c("GM", "RP", "MJ", "DT", "PR") # ระบุว่าจะเรียงแบบไหน
dat$trt <- factor(dat$trt, levels = target) # อย่าลืมเปลี่ยนต้่องแปลงให้่เป็น factor และเรียง
newdat <- dat[order(dat$trt),] # ใช้คำสั่ง order เพื่อ จัด row ว่าแต่ละ trt ที่เราระบุนั้นอยู่ row ไหนบ้าง แล้วก็เรียงตามนั้น
head(ndat)
Source: local data frame [6 x 15]
trt rep sm sm y moi hill panicle sunk mc_sunk float_sunk mc_float tgw sunk mc_tgw_sunk tgw float mc_tgw_float
(fctr) (int) (int) (dbl) (dbl) (int) (int) (dbl) (dbl) (dbl) (dbl) (dbl) (dbl) (dbl) (dbl)
1 GM 1 1 2.805 14.7 108 239 347.8 14.6 64.3 14.5 25.431 12.2 4.960 14.2
2 GM 1 2 2.850 16.2 108 221 337.2 14.8 66.0 14.6 24.381 12.0 3.324 14.3
3 GM 1 3 3.295 16.7 108 321 345.4 14.6 72.9 15.2 24.799 11.4 3.944 13.6
4 GM 2 1 0.870 13.2 108 207 282.8 12.9 53.8 13.0 24.044 13.6 3.776 14.6
5 GM 2 2 1.620 15.0 108 190 287.4 13.0 40.8 11.6 24.273 13.6 3.795 14.0
6 GM 2 3 1.700 12.2 108 201 232.8 11.1 51.4 11.4 23.508 13.5 3.749 14.8
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment