เจชเฉเจเฉเจ เจธเฉเจฅเจฐเจพ R เจญเจพเจธเจผเจพ เจตเจฟเฉฑเจ เจธเจญ เจคเฉเจ เจชเฉเจฐเจธเจฟเฉฑเจง เจฒเจพเจเจฌเฉเจฐเฉเจฐเฉเจเจ เจตเจฟเฉฑเจเฉเจ เจเฉฑเจ เจฆเฉ เจเฉเจฐ เจตเจฟเฉฑเจ เจธเจผเจพเจฎเจฒ - เจธเฉเจฅเจฐเจพ.
เจชเฉเจเฉเจ เจฆเจพ เจฎเฉเฉฑเจ เจเจฆเฉเจธเจผ เจกเฉเจเจพ เจจเฉเฉฐ เจธเจนเฉ เจฐเฉเจช เจตเจฟเฉฑเจ เจฒเจฟเจเจเจฃเจพ เจนเฉเฅค
Habrรฉ 'เจคเฉ เจชเจนเจฟเจฒเจพเจ เจนเฉ เจเจชเจฒเจฌเจง เจนเฉ
เจเจธเจเฉเจเฉ: เจเฉ gather() เจ เจคเฉ spread() เจจเฉเฉฐ เจฌเจฐเจคเจฐเจซเจผ เจเฉเจคเจพ เจเจพเจตเฉเจเจพ?
เจนเฉเจกเจฒเฉ เจตเจฟเจเจนเฉเจฎ: เจเฉเจ เจนเฉฑเจฆ เจคเฉฑเจ. เจ เจธเฉเจ เจนเฉเจฃ เจเจนเจจเจพเจ เจซเฉฐเจเจธเจผเจจเจพเจ เจฆเฉ เจตเจฐเจคเฉเจ เจฆเฉ เจธเจฟเจซเจพเจฐเจธเจผ เจจเจนเฉเจ เจเจฐเจพเจเจเฉ เจ เจคเฉ เจเจนเจจเจพเจ เจตเจฟเฉฑเจ เจฌเฉฑเจ เจ เฉเจ เจเจฐเจพเจเจเฉ, เจชเจฐ เจเจน เจเจนเจจเจพเจ เจฆเฉ เจฎเฉเจเฉเจฆเจพ เจธเจฅเจฟเจคเฉ เจตเจฟเฉฑเจ เจชเฉเจเฉเจ เจตเจฟเฉฑเจ เจฎเฉเจเฉเจฆ เจฐเจนเจฟเจฃเจเฉเฅค
เจธเจฎเฉฑเจเจฐเฉ
เจเฉ เจคเฉเจธเฉเจ เจกเฉเจเจพ เจตเจฟเจธเจผเจฒเฉเจธเจผเจฃ เจตเจฟเฉฑเจ เจฆเจฟเจฒเจเจธเจชเฉ เจฐเฉฑเจเจฆเฉ เจนเฉ, เจคเจพเจ เจคเฉเจนเจพเจจเฉเฉฐ เจฎเฉเจฐเฉ เจตเจฟเฉฑเจ เจฆเจฟเจฒเจเจธเจชเฉ เจนเฉ เจธเจเจฆเฉ เจนเฉ
เจธเฉเจเฉฑเจเจพ เจกเจพเจเจพ เจธเฉฐเจเจฒเจช tidyr เจชเฉเจเฉเจ เจตเจฟเฉฑเจ เจธเจผเจพเจฎเจฒ เจฎเฉเฉฑเจ เจซเฉฐเจเจธเจผเจจ เจกเฉเจเจพ เจจเฉเฉฐ เจเฉเฉเฉ เจคเฉเจ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจ เจคเฉ เจเจธเจฆเฉ เจเจฒเจ เจฌเจฆเจฒเจฃ เจฒเจ เจจเจตเจพเจ เจธเฉฐเจเจฒเจช tidyr 0.8.3.9000 เจฆเจพ เจธเจญ เจคเฉเจ เจฎเฉเจเฉเจฆเจพ เจธเฉฐเจธเจเจฐเจฃ เจธเจฅเจพเจชเจค เจเจฐเจจเจพ เจจเจตเฉเจเจ เจตเจฟเจธเจผเฉเจธเจผเจคเจพเจตเจพเจ เจตเจฟเฉฑเจ เจคเจฌเจฆเฉเจฒเฉ เจกเฉเจเจพ เจจเฉเฉฐ เจเฉเฉเฉ เจคเฉเจ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฃ เจฆเฉ เจเฉฑเจ เจธเจงเจพเจฐเจจ เจเจฆเจพเจนเจฐเจฃ ะกะฟะตัะธัะธะบะฐัะธะธ เจเจ เจฎเฉเฉฑเจฒเจพเจ (.value) เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจฆเฉ เจนเฉเจ เจจเจฟเจฐเจงเจพเจฐเจจ เจคเจพเจฐเฉเจ เจซเจฐเฉเจฎเจพเจ เจจเฉเฉฐ เจฒเฉฐเจฌเฉ เจคเฉเจ เจเฉเฉเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฃเจพ เจจเจตเฉเจ tidyr เจธเฉฐเจเจฒเจช เจฆเฉ เจจเจพเจฒ เจเฉฐเจฎ เจเจฐเจจ เจฆเฉเจเจ เจเจ เจเฉฑเจจเจค เจเจฆเจพเจนเจฐเจฃเจพเจ เจเฉฑเจ เจเจฆเจพเจนเจฐเจจ เจฆเฉ เจคเฉเจฐ 'เจคเฉ เจฏเฉเจเจธ เจเจจเจเจฃเจจเจพ เจเจฎเจฆเจจ เจ เจคเฉ เจเจฟเจฐเจพเจ เจฆเฉ เจกเฉเจเจพเจธเฉเจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจฆเฉ เจนเฉเจ เจกเฉเจเจพ เจจเฉเฉฐ เจธเจพเจซเจผ เจเจฐเจจเจพเฅค เจตเจฟเจธเจผเจต เจฌเฉเจเจ เจธเฉฐเจชเจฐเจ เจธเฉเจเฉ
เจธเจฟเฉฑเจเจพ
เจธเฉเจเฉฑเจเจพ เจกเจพเจเจพ เจธเฉฐเจเจฒเจช
เจเฉเจเจพ เจธเฉเจฅเจฐเจพ - เจกเฉเจเจพ เจจเฉเฉฐ เจเฉฑเจ เจ เจเฉเจคเฉ เจธเจพเจซเจผ เจฐเฉเจช เจตเจฟเฉฑเจ เจฒเจฟเจเจเจฃ เจตเจฟเฉฑเจ เจคเฉเจนเจพเจกเฉ เจฎเจฆเจฆ เจเจฐเฉเฅค เจธเจผเฉเฉฑเจง เจกเฉเจเจพ เจเจน เจกเฉเจเจพ เจนเฉเฉฐเจฆเจพ เจนเฉ เจเจฟเฉฑเจฅเฉ:
- เจนเจฐเฉเจ เจตเฉเจฐเฉเจเจฌเจฒ เจเฉฑเจ เจเจพเจฒเจฎ เจตเจฟเฉฑเจ เจนเฉเฉฐเจฆเจพ เจนเฉเฅค
- เจนเจฐ เจจเจฟเจฐเฉเจเจฃ เจเฉฑเจ เจธเจคเจฐ เจนเฉเฅค
- เจนเจฐเฉเจ เจฎเฉเฉฑเจฒ เจเฉฑเจ เจธเฉเฉฑเจฒ เจนเฉเฅค
เจตเจฟเจธเจผเจฒเฉเจธเจผเจฃ เจเจฐเจจ เจตเฉเจฒเฉ เจธเฉเจฅเจฐเฉ เจกเฉเจเจพ เจตเจฟเฉฑเจ เจชเฉเจธเจผ เจเฉเจคเฉ เจเจ เจกเฉเจเจพ เจจเจพเจฒ เจเฉฐเจฎ เจเจฐเจจเจพ เจฌเจนเฉเจค เจธเฉเจเจพ เจ เจคเฉ เจตเจงเฉเจฐเฉ เจธเฉเจตเจฟเจงเจพเจเจจเจ เจนเฉเฅค
tidyr เจชเฉเจเฉเจ เจตเจฟเฉฑเจ เจธเจผเจพเจฎเจฒ เจฎเฉเฉฑเจ เจซเฉฐเจเจธเจผเจจ
tidyr เจตเจฟเฉฑเจ เจเฉเจฌเจฒเจพเจ เจจเฉเฉฐ เจฌเจฆเจฒเจฃ เจฒเจ เจคเจฟเจเจฐ เจเฉเจคเฉ เจเจ เจซเฉฐเจเจธเจผเจจเจพเจ เจฆเจพ เจเฉฑเจ เจธเจฎเฉเจน เจนเฉเฉฐเจฆเจพ เจนเฉ:
fill()
- เจชเจฟเจเจฒเฉ เจฎเฉเฉฑเจฒเจพเจ เจฆเฉ เจจเจพเจฒ เจเฉฑเจ เจเจพเจฒเจฎ เจตเจฟเฉฑเจ เจเฉเฉฐเจฎ เจนเฉเจ เจฎเฉเฉฑเจฒเจพเจ เจจเฉเฉฐ เจญเจฐเจจเจพ;separate()
- เจเฉฑเจ เจตเจฟเจญเจพเจเจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจเฉ เจเฉฑเจ เจเฉเจคเจฐ เจจเฉเฉฐ เจเจเจเจ เจตเจฟเฉฑเจ เจตเฉฐเจกเจฆเจพ เจนเฉ;unite()
โ เจเจ เจเฉเจคเจฐเจพเจ เจจเฉเฉฐ เจเฉฑเจ เจตเจฟเฉฑเจ เจเฉเฉเจจ เจฆเจพ เจเฉฐเจฎ เจเจฐเจฆเจพ เจนเฉ, เจซเฉฐเจเจธเจผเจจ เจฆเฉ เจเจฒเจ เจเจฟเจฐเจฟเจseparate()
;pivot_longer()
- เจเฉฑเจ เจซเฉฐเจเจธเจผเจจ เจเฉ เจกเฉเจเจพ เจจเฉเฉฐ เจตเจพเจเจก เจซเจพเจฐเจฎเฉเจ เจคเฉเจ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฆเจพ เจนเฉ;pivot_wider()
- เจเฉฑเจ เจซเฉฐเจเจธเจผเจจ เจเฉ เจกเฉเจเจพ เจจเฉเฉฐ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจคเฉเจ เจตเจฟเจเจชเจ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฆเจพ เจนเฉเฅค เจซเฉฐเจเจธเจผเจจ เจฆเฉเจเจฐเจพ เจเฉเจคเฉ เจเจ เจเฉฑเจ เจฆเฉ เจเจฒเจ เจเจพเจฐเจตเจพเจpivot_longer()
.gather()
เจชเฉเจฐเจพเจฃเฉ - เจเฉฑเจ เจซเฉฐเจเจธเจผเจจ เจเฉ เจกเฉเจเจพ เจจเฉเฉฐ เจตเจพเจเจก เจซเจพเจฐเจฎเฉเจ เจคเฉเจ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฆเจพ เจนเฉ;spread()
เจชเฉเจฐเจพเจฃเฉ - เจเฉฑเจ เจซเฉฐเจเจธเจผเจจ เจเฉ เจกเฉเจเจพ เจจเฉเฉฐ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจคเฉเจ เจตเจฟเจเจชเจ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฆเจพ เจนเฉเฅค เจซเฉฐเจเจธเจผเจจ เจฆเฉเจเจฐเจพ เจเฉเจคเฉ เจเจ เจเฉฑเจ เจฆเฉ เจเจฒเจ เจเจพเจฐเจตเจพเจgather()
.
เจกเฉเจเจพ เจจเฉเฉฐ เจเฉเฉเฉ เจคเฉเจ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจ เจคเฉ เจเจธเจฆเฉ เจเจฒเจ เจฌเจฆเจฒเจฃ เจฒเจ เจจเจตเจพเจ เจธเฉฐเจเจฒเจช
เจชเจนเจฟเจฒเจพเจ, เจเจธ เจเจฟเจธเจฎ เจฆเฉ เจชเจฐเจฟเจตเจฐเจคเจจ เจฒเจ เจซเฉฐเจเจธเจผเจจเจพเจ เจฆเฉ เจตเจฐเจคเฉเจ เจเฉเจคเฉ เจเจพเจเจฆเฉ เจธเฉ gather()
ะธ spread()
. เจเจนเจจเจพเจ เจซเฉฐเจเจธเจผเจจเจพเจ เจฆเฉ เจนเฉเจเจฆ เจฆเฉ เจธเจพเจฒเจพเจ เจฆเฉเจฐเจพเจจ, เจเจน เจธเจชเฉฑเจธเจผเจ เจนเฉ เจเจฟเจ เจนเฉ เจเจฟ เจฌเจนเฉเจคเฉ เจเจชเจญเฉเจเจคเจพเจตเจพเจ เจฒเจ, เจชเฉเจเฉเจ เจฆเฉ เจฒเฉเจเจ เจธเจฎเฉเจค, เจเจนเจจเจพเจ เจซเฉฐเจเจธเจผเจจเจพเจ เจฆเฉ เจจเจพเจฎ เจ
เจคเฉ เจเจนเจจเจพเจ เจฆเฉเจเจ เจฆเจฒเฉเจฒเจพเจ เจฌเจฟเจฒเจเฉเจฒ เจธเจชเฉฑเจธเจผเจ เจจเจนเฉเจ เจธเจจ, เจ
เจคเฉ เจเจนเจจเจพเจ เจจเฉเฉฐ เจฒเฉฑเจญเจฃ เจ
เจคเฉ เจเจนเจจเจพเจ เจตเจฟเฉฑเจเฉเจ เจเจฟเจนเฉเฉ เจซเฉฐเจเจธเจผเจจเจพเจ เจจเฉเฉฐ เจฌเจฆเจฒเจฃ เจตเจฟเฉฑเจ เจฎเฉเจธเจผเจเจฒเจพเจ เจชเฉเจฆเจพ เจเจฐเจฆเฉเจเจ เจนเจจ เจเฉเฉเฉ เจคเฉเจ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจคเฉฑเจ เจเฉฑเจ เจคเจพเจฐเฉเจ เจซเจฐเฉเจฎ, เจ
เจคเฉ เจเจธเจฆเฉ เจเจฒเจเฅค
เจเจธ เจธเจฌเฉฐเจง เจตเจฟเจ เจเจจ เจธเฉเจฅเจฐเจพ เจฆเฉ เจจเจตเฉเจ, เจฎเจนเฉฑเจคเจตเจชเฉเจฐเจจ เจซเฉฐเจเจธเจผเจจ เจเฉเฉเฉ เจเจ เจนเจจ เจเฉ เจเจฟ เจฎเจฟเจคเฉ เจซเจฐเฉเจฎเจพเจ เจจเฉเฉฐ เจฌเจฆเจฒเจฃ เจฒเจ เจคเจฟเจเจฐ เจเฉเจคเฉ เจเจ เจนเจจเฅค
เจจเจตเฉเจเจ เจตเจฟเจธเจผเฉเจธเจผเจคเจพเจตเจพเจ pivot_longer()
ะธ pivot_wider()
เจชเฉเจเฉเจ เจฆเฉเจเจ เจเฉเจ เจตเจฟเจธเจผเฉเจธเจผเจคเจพเจตเจพเจ เจคเฉเจ เจชเฉเจฐเฉเจฐเจฟเจค เจธเจจ cdata, เจเฉเจนเจจ เจฎเจพเจเจเจ เจ
เจคเฉ เจจเฉเจจเจพ เจเจผเฉเจฎเฉเจฒ เจฆเฉเจเจฐเจพ เจฌเจฃเจพเจเจ เจเจฟเจเฅค
tidyr 0.8.3.9000 เจฆเจพ เจธเจญ เจคเฉเจ เจฎเฉเจเฉเจฆเจพ เจธเฉฐเจธเจเจฐเจฃ เจธเจฅเจพเจชเจค เจเจฐเจจเจพ
เจชเฉเจเฉเจ เจฆเจพ เจจเจตเจพเจ, เจธเจญ เจคเฉเจ เจฎเฉเจเฉเจฆเจพ เจธเฉฐเจธเจเจฐเจฃ เจเฉฐเจธเจเจพเจฒ เจเจฐเจจ เจฒเจ เจธเฉเจฅเจฐเจพ 0.8.3.9000, เจเจฟเฉฑเจฅเฉ เจจเจตเฉเจเจ เจตเจฟเจธเจผเฉเจธเจผเจคเจพเจตเจพเจ เจเจชเจฒเจฌเจง เจนเจจ, เจนเฉเจ เจพเจ เจฆเจฟเฉฑเจคเฉ เจเฉเจก เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเฉเฅค
devtools::install_github("tidyverse/tidyr")
เจฒเจฟเจเจฃ เจฆเฉ เจธเจฎเฉเจ, เจเจน เจซเฉฐเจเจธเจผเจจ เจธเจฟเจฐเจซ GitHub 'เจคเฉ เจชเฉเจเฉเจ เจฆเฉ dev เจธเฉฐเจธเจเจฐเจฃ เจตเจฟเฉฑเจ เจเจชเจฒเจฌเจง เจนเจจ.
เจจเจตเฉเจเจ เจตเจฟเจธเจผเฉเจธเจผเจคเจพเจตเจพเจ เจตเจฟเฉฑเจ เจคเจฌเจฆเฉเจฒเฉ
เจตเจพเจธเจคเจต เจตเจฟเฉฑเจ, เจจเจตเฉเจ เจซเฉฐเจเจธเจผเจจเจพเจ เจจเจพเจฒ เจเฉฐเจฎ เจเจฐเจจ เจฒเจ เจชเฉเจฐเจพเจฃเฉเจเจ เจธเจเฉเจฐเจฟเจชเจเจพเจ เจจเฉเฉฐ เจเฉเจฐเจพเจเจธเจซเจฐ เจเจฐเจจเจพ เจฎเฉเจธเจผเจเจฒ เจจเจนเฉเจ เจนเฉ; เจฌเจฟเจนเจคเจฐ เจธเจฎเจ เจฒเจ, เจฎเฉเจ เจชเฉเจฐเจพเจฃเฉ เจซเฉฐเจเจธเจผเจจเจพเจ เจฆเฉ เจฆเจธเจคเจพเจตเฉเจเจผเจพเจ เจคเฉเจ เจเฉฑเจ เจเจฆเจพเจนเจฐเจจ เจฒเจตเจพเจเจเจพ เจ
เจคเฉ เจฆเจฟเจเจพเจตเจพเจเจเจพ เจเจฟ เจจเจตเฉเจ เจซเฉฐเจเจธเจผเจจเจพเจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจเฉ เจเจนเฉ เจเจชเจฐเฉเจธเจผเจจ เจเจฟเจตเฉเจ เจเฉเจคเฉ เจเจพเจเจฆเฉ เจนเจจเฅค pivot_*()
เจซเฉฐเจเจธเจผเจจเฅค
เจตเจพเจเจก เจซเจพเจฐเจฎเฉเจ เจจเฉเฉฐ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเฉเฅค
เจเจเฉฑเจคเจฐ เจซเฉฐเจเจธเจผเจจ เจฆเจธเจคเจพเจตเฉเจเจผเจพเจ เจคเฉเจ เจเจฆเจพเจนเจฐเจจ เจเฉเจก
# example
library(dplyr)
stocks <- data.frame(
time = as.Date('2009-01-01') + 0:9,
X = rnorm(10, 0, 1),
Y = rnorm(10, 0, 2),
Z = rnorm(10, 0, 4)
)
# old
stocks_gather <- stocks %>% gather(key = stock,
value = price,
-time)
# new
stocks_long <- stocks %>% pivot_longer(cols = -time,
names_to = "stock",
values_to = "price")
เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจจเฉเฉฐ เจเฉเฉเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฃเจพเฅค
เจธเจชเฉเจฐเฉเจก เจซเฉฐเจเจธเจผเจจ เจฆเจธเจคเจพเจตเฉเจเจผเจพเจ เจคเฉเจ เจเจฆเจพเจนเจฐเจจ เจเฉเจก
# old
stocks_spread <- stocks_gather %>% spread(key = stock,
value = price)
# new
stock_wide <- stocks_long %>% pivot_wider(names_from = "stock",
values_from = "price")
เจเจฟเจเจเจเจฟ เจจเจพเจฒ เจเฉฐเจฎ เจเจฐเจจ เจฆเฉเจเจ เจเจชเจฐเฉเจเจค เจเจฆเจพเจนเจฐเจฃเจพเจ เจตเจฟเฉฑเจ pivot_longer()
ะธ pivot_wider()
, เจฎเฉเจฒ เจธเจพเจฐเจฃเฉ เจตเจฟเฉฑเจ เจธเจเจพเจ เจเจฐเจเฉเจฎเฉเจเจเจพเจ เจตเจฟเฉฑเจ เจธเฉเจเฉเจฌเฉฑเจง เจเฉเจ เจเจพเจฒเจฎ เจจเจนเฉเจ เจนเจจ เจจเจพเจฎ_เจจเฉเฉฐ ะธ เจฎเฉเฉฑเจฒเจพเจ_เจจเฉเฉฐ เจเจนเจจเจพเจ เจฆเฉ เจจเจพเจฎ เจนเจตเจพเจฒเฉ เจฆเฉ เจเจฟเฉฐเจจเฉเจน เจตเจฟเฉฑเจ เจนเฉเจฃเฉ เจเจพเจนเฉเจฆเฉ เจนเจจเฅค
เจเฉฑเจ เจธเจพเจฐเจฃเฉ เจเฉ เจคเฉเจนเจพเจจเฉเฉฐ เจธเจญ เจคเฉเจ เจเจธเจพเจจเฉ เจจเจพเจฒ เจเจน เจชเจคเจพ เจฒเจเจพเจเจฃ เจตเจฟเฉฑเจ เจฎเจฆเจฆ เจเจฐเฉเจเฉ เจเจฟ เจเฉฑเจ เจจเจตเฉเจ เจธเฉฐเจเจฒเจช เจจเจพเจฒ เจเฉฐเจฎ เจเจฐเจจ เจฒเจ เจเจฟเจตเฉเจ เจฌเจฆเจฒเจฟเจ เจเจพเจตเฉ เจธเฉเจฅเจฐเจพ.
เจฒเฉเจเจ เจคเฉเจ เจจเฉเจ
เจนเฉเจ เจพเจ เจฆเจฟเฉฑเจคเจพ เจธเจพเจฐเจพ เจเฉเจเจธเจ เจ เจจเฉเจเฉเจฒ เจนเฉ, เจฎเฉเจ เจฎเฉเจซเจค เจ เจจเฉเจตเจพเจฆ เจตเฉ เจเจนเจพเจเจเจพ
เจตเจฟเจเจจเฉเจ เจ เจงเจฟเจเจพเจฐเจค tidyverse เจฒเจพเจเจฌเฉเจฐเฉเจฐเฉ เจตเฉเจฌเจธเจพเจเจ เจคเฉเจ.
เจกเฉเจเจพ เจจเฉเฉฐ เจเฉเฉเฉ เจคเฉเจ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฃ เจฆเฉ เจเฉฑเจ เจธเจงเจพเจฐเจจ เจเจฆเจพเจนเจฐเจฃ
pivot_longer ()
โ เจเจพเจฒเจฎเจพเจ เจฆเฉ เจเจฟเจฃเจคเฉ เจเจเจพ เจเฉ เจ
เจคเฉ เจเจคเจพเจฐเจพเจ เจฆเฉ เจเจฟเจฃเจคเฉ เจตเจงเจพ เจเฉ เจกเจพเจเจพ เจธเฉเฉฑเจเจพเจ เจจเฉเฉฐ เจฒเฉฐเจฌเจพ เจฌเจฃเจพเจเจเจฆเจพ เจนเฉเฅค
เจฒเฉเจ เจตเจฟเฉฑเจ เจชเฉเจธเจผ เจเฉเจคเฉเจเจ เจเจฆเจพเจนเจฐเจฃเจพเจ เจจเฉเฉฐ เจเจฒเจพเจเจฃ เจฒเจ, เจคเฉเจนเจพเจจเฉเฉฐ เจชเจนเจฟเจฒเจพเจ เจฒเฉเฉเฉเจเจฆเฉ เจชเฉเจเฉเจเจพเจ เจจเฉเฉฐ เจเจจเฉเจเจ เจเจฐเจจ เจฆเฉ เจฒเฉเฉ เจนเฉ:
library(tidyr)
library(dplyr)
library(readr)
เจฎเฉฐเจจ เจฒเจ เจเจฟ เจธเจพเจกเฉ เจเฉเจฒ เจเฉฑเจ เจธเจฐเจตเฉเจเจฃ เจฆเฉ เจจเจคเฉเจเจฟเจเจ เจฆเฉ เจจเจพเจฒ เจเฉฑเจ เจธเจพเจฐเจฃเฉ เจนเฉ เจเจฟเจธ เจตเจฟเฉฑเจ (เจนเฉเจฐ เจเฉเจเจผเจพเจ เจฆเฉ เจจเจพเจฒ) เจฒเฉเจเจพเจ เจจเฉเฉฐ เจเจจเฉเจนเจพเจ เจฆเฉ เจงเจฐเจฎ เจ เจคเฉ เจธเจพเจฒเจพเจจเจพ เจเจฎเจฆเจจ เจฌเจพเจฐเฉ เจชเฉเฉฑเจเจฟเจ เจเจฟเจ เจนเฉ:
#> # A tibble: 18 x 11
#> religion `<$10k` `$10-20k` `$20-30k` `$30-40k` `$40-50k` `$50-75k`
#> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 Agnostic 27 34 60 81 76 137
#> 2 Atheist 12 27 37 52 35 70
#> 3 Buddhist 27 21 30 34 33 58
#> 4 Catholic 418 617 732 670 638 1116
#> 5 Donโt kโฆ 15 14 15 11 10 35
#> 6 Evangelโฆ 575 869 1064 982 881 1486
#> 7 Hindu 1 9 7 9 11 34
#> 8 Historiโฆ 228 244 236 238 197 223
#> 9 Jehovahโฆ 20 27 24 24 21 30
#> 10 Jewish 19 19 25 25 30 95
#> # โฆ with 8 more rows, and 4 more variables: `$75-100k` <dbl>,
#> # `$100-150k` <dbl>, `>150k` <dbl>, `Don't know/refused` <dbl>
เจเจธ เจธเจพเจฐเจฃเฉ เจตเจฟเฉฑเจ เจเจคเจพเจฐเจพเจ เจตเจฟเฉฑเจ เจเฉฑเจคเจฐเจฆเจพเจคเจพเจตเจพเจ เจฆเจพ เจงเจฐเจฎ เจกเฉเจเจพ เจธเจผเจพเจฎเจฒ เจนเฉ, เจ
เจคเฉ เจเจฎเจฆเจจเฉ เจชเฉฑเจงเจฐ เจเจพเจฒเจฎ เจฆเฉ เจจเจพเจตเจพเจ เจตเจฟเฉฑเจ เจเจฟเฉฐเจกเฉ เจนเฉเจ เจนเจจเฅค เจนเจฐเฉเจ เจธเจผเฉเจฐเฉเจฃเฉ เจคเฉเจ เจเฉฑเจคเจฐเจฆเจพเจคเจพเจตเจพเจ เจฆเฉ เจเจฟเจฃเจคเฉ เจงเจฐเจฎ เจ
เจคเฉ เจเจฎเจฆเจจเฉ เจชเฉฑเจงเจฐ เจฆเฉ เจเฉฐเจเจฐเจธเฉเจเจธเจผเจจ 'เจคเฉ เจธเฉเฉฑเจฒ เจฎเฉเฉฑเจฒเจพเจ เจตเจฟเฉฑเจ เจธเจเฉเจฐ เจเฉเจคเฉ เจเจพเจเจฆเฉ เจนเฉเฅค เจธเจพเจฐเจฃเฉ เจจเฉเฉฐ เจเฉฑเจ เจธเจพเจซเจผ-เจธเฉเจฅเจฐเจพ, เจธเจนเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฒเจฟเจเจเจฃ เจฒเจ, เจเจน เจตเจฐเจคเจฃ เจฒเจ เจเจพเจซเจผเฉ เจนเฉ pivot_longer()
:
pew %>%
pivot_longer(cols = -religion, names_to = "income", values_to = "count")
pew %>%
pivot_longer(cols = -religion, names_to = "income", values_to = "count")
#> # A tibble: 180 x 3
#> religion income count
#> <chr> <chr> <dbl>
#> 1 Agnostic <$10k 27
#> 2 Agnostic $10-20k 34
#> 3 Agnostic $20-30k 60
#> 4 Agnostic $30-40k 81
#> 5 Agnostic $40-50k 76
#> 6 Agnostic $50-75k 137
#> 7 Agnostic $75-100k 122
#> 8 Agnostic $100-150k 109
#> 9 Agnostic >150k 84
#> 10 Agnostic Don't know/refused 96
#> # โฆ with 170 more rows
เจซเฉฐเจเจธเจผเจจ เจเจฐเจเฉเจฎเฉเจเจเจธ pivot_longer()
- เจชเจนเจฟเจฒเฉ เจฆเจฒเฉเจฒ เจเจพเจฒเจฐ, เจฆเฉฑเจธเจฆเจพ เจนเฉ เจเจฟ เจเจฟเจนเฉเฉ เจเจพเจฒเจฎเจพเจ เจจเฉเฉฐ เจฎเจฟเจฒเจพเจเจฃ เจฆเฉ เจฒเฉเฉ เจนเฉเฅค เจเจธ เจธเจฅเจฟเจคเฉ เจตเจฟเฉฑเจ, เจธเจฟเจตเจพเจ เจธเจพเจฐเฉ เจเจพเจฒเจฎ เจตเจพเจฐ.
- เจฆเจฒเฉเจฒ เจจเจพเจฎ_เจจเฉเฉฐ เจตเฉเจฐเฉเจเจฌเจฒ เจฆเจพ เจจเจพเจฎ เจฆเจฟเฉฐเจฆเจพ เจนเฉ เจเฉ เจเจพเจฒเจฎเจพเจ เจฆเฉ เจจเจพเจตเจพเจ เจคเฉเจ เจฌเจฃเจพเจเจ เจเจพเจตเฉเจเจพ เจเฉ เจ เจธเฉเจ เจเจเฉฑเจ เฉ เจเฉเจคเฉ เจนเจจเฅค
- เจฎเฉเฉฑเจฒเจพเจ_เจจเฉเฉฐ เจเฉฑเจ เจตเฉเจฐเฉเจเจฌเจฒ เจฆเจพ เจจเจพเจฎ เจฆเจฟเฉฐเจฆเจพ เจนเฉ เจเฉ เจตเจฟเจฒเฉเจจ เจเฉเจคเฉ เจเจพเจฒเจฎเจพเจ เจฆเฉ เจธเฉเฉฑเจฒเจพเจ เจฆเฉ เจฎเฉเฉฑเจฒเจพเจ เจตเจฟเฉฑเจ เจธเจเฉเจฐ เจเฉเจคเฉ เจกเฉเจเจพ เจคเฉเจ เจฌเจฃเจพเจเจ เจเจพเจตเฉเจเจพเฅค
ะกะฟะตัะธัะธะบะฐัะธะธ
เจเจน เจชเฉเจเฉเจ เจฆเฉ เจเฉฑเจ เจจเจตเฉเจ เจเจพเจฐเจเจเฉเจธเจผเจฒเจคเจพ เจนเฉ เจธเฉเจฅเจฐเจพ, เจเฉ เจเจฟ เจชเฉเจฐเจพเจคเจจ เจซเฉฐเจเจธเจผเจจเจพเจ เจจเจพเจฒ เจเฉฐเจฎ เจเจฐเจฆเฉ เจธเจฎเฉเจ เจชเจนเจฟเจฒเจพเจ เจ เจฃเจเจชเจฒเจฌเจง เจธเฉเฅค
เจเฉฑเจ เจจเจฟเจฐเจงเจพเจฐเจจ เจเฉฑเจ เจกเฉเจเจพ เจซเจฐเฉเจฎ เจนเฉ, เจเจฟเจธเจฆเฉ เจนเจฐ เจเจคเจพเจฐ เจจเจตเฉเจ เจเจเจเจชเฉเฉฑเจ เจฎเจฟเจคเฉ เจซเจฐเฉเจฎ เจตเจฟเฉฑเจ เจเฉฑเจ เจเจพเจฒเจฎ เจจเจพเจฒ เจฎเฉเจฒ เจเจพเจเจฆเฉ เจนเฉ, เจ เจคเฉ เจฆเฉ เจตเจฟเจธเจผเฉเจธเจผ เจเจพเจฒเจฎ เจเฉ เจเจธ เจจเจพเจฒ เจธเจผเฉเจฐเฉ เจนเฉเฉฐเจฆเฉ เจนเจจ:
- .name เจฎเฉเจฒ เจเจพเจฒเจฎ เจจเจพเจฎ เจธเจผเจพเจฎเจฟเจฒ เจนเฉเฅค
- .เจฎเฉเฉฑเจฒ เจเจพเจฒเจฎ เจฆเจพ เจจเจพเจฎ เจฐเฉฑเจเจฆเจพ เจนเฉ เจเจฟเจธ เจตเจฟเฉฑเจ เจธเฉเฉฑเจฒ เจฎเฉเฉฑเจฒ เจธเจผเจพเจฎเจฒ เจนเฉเจฃเจเฉเฅค
เจจเจฟเจฐเจงเจพเจฐเจจ เจฆเฉ เจฌเจพเจเฉ เจเจพเจฒเจฎ เจเจน เจฆเจฐเจธเจพเจเจเจฆเฉ เจนเจจ เจเจฟ เจจเจตเจพเจ เจเจพเจฒเจฎ เจธเฉฐเจเฉเจเจฟเจค เจเจพเจฒเจฎเจพเจ เจฆเฉ เจจเจพเจฎ เจจเฉเฉฐ เจเจฟเจตเฉเจ เจชเฉเจฐเจฆเจฐเจธเจผเจฟเจค เจเจฐเฉเจเจพ .name.
เจธเจชเฉเจธเฉเจซเจฟเจเฉเจธเจผเจจ เจเฉฑเจ เจเจพเจฒเจฎ เจจเจพเจฎ เจตเจฟเฉฑเจ เจธเจเฉเจฐ เจเฉเจคเฉ เจฎเฉเจเจพเจกเฉเจเจพ เจฆเจพ เจตเจฐเจฃเจจ เจเจฐเจฆเจพ เจนเฉ, เจนเจฐ เจเฉฑเจ เจเจพเจฒเจฎ เจฒเจ เจเฉฑเจ เจเจคเจพเจฐ เจ เจคเฉ เจนเจฐ เจเฉฑเจ เจตเฉเจฐเฉเจเจฌเจฒ เจฒเจ เจเฉฑเจ เจเจพเจฒเจฎ, เจเจพเจฒเจฎ เจจเจพเจฎ เจฆเฉ เจจเจพเจฒ เจฎเจฟเจฒเจพ เจเฉ, เจเจน เจชเจฐเจฟเจญเจพเจธเจผเจพ เจเจธ เจธเจฎเฉเจ เจเจฒเจเจฃ เจตเจพเจฒเฉ เจฒเฉฑเจ เจธเจเจฆเฉ เจนเฉ, เจชเจฐ เจเฉเจ เจเจฆเจพเจนเจฐเจฃเจพเจ เจจเฉเฉฐ เจตเฉเจเจฃ เจคเฉเจ เจฌเจพเจ เจฆ เจเจน เจฌเจนเฉเจค เจเจผเจฟเจเจฆเจพ เจนเฉ เจเจพเจตเฉเจเจพ เจธเจชเจธเจผเจ
เจจเจฟเจฐเจงเจพเจฐเจจ เจฆเจพ เจฌเจฟเฉฐเจฆเฉ เจเจน เจนเฉ เจเจฟ เจคเฉเจธเฉเจ เจชเจฐเจฟเจตเจฐเจคเจฟเจค เจเฉเจคเฉ เจเจพ เจฐเจนเฉ เจกเฉเจเจพเจซเฉเจฐเฉเจฎ เจฒเจ เจจเจตเจพเจ เจฎเฉเจเจพเจกเฉเจเจพ เจชเฉเจฐเจพเจชเจค เจเจฐ เจธเจเจฆเฉ เจนเฉ, เจธเฉเจง เจธเจเจฆเฉ เจนเฉ เจ เจคเฉ เจชเจฐเจฟเจญเจพเจธเจผเจฟเจค เจเจฐ เจธเจเจฆเฉ เจนเฉเฅค
เจเฉฑเจ เจเฉเจฌเจฒ เจจเฉเฉฐ เจเฉฑเจ เจตเจฟเจเจชเจ เจซเจพเจฐเจฎเฉเจ เจคเฉเจ เจเฉฑเจ เจฒเฉฐเจฌเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฃ เจตเฉเจฒเฉ เจตเจฟเจธเจผเฉเจธเจผเจคเจพเจตเจพเจ เจจเจพเจฒ เจเฉฐเจฎ เจเจฐเจจ เจฒเจ, เจซเฉฐเจเจธเจผเจจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเฉ pivot_longer_spec()
.
เจเจน เจซเฉฐเจเจธเจผเจจ เจเจฟเจตเฉเจ เจเฉฐเจฎ เจเจฐเจฆเจพ เจนเฉ เจเจฟ เจเจน เจเจฟเจธเฉ เจตเฉ เจฎเจฟเจคเฉ เจซเฉเจฐเฉเจฎ เจจเฉเฉฐ เจฒเฉเจเจฆเจพ เจนเฉ เจ เจคเฉ เจเฉฑเจชเจฐ เจฆเฉฑเจธเฉ เจคเจฐเฉเจเฉ เจจเจพเจฒ เจเจธเจฆเจพ เจฎเฉเจเจพเจกเฉเจเจพ เจคเจฟเจเจฐ เจเจฐเจฆเจพ เจนเฉเฅค
เจเฉฑเจ เจเจฆเจพเจนเจฐเจจ เจฆเฉ เจคเฉเจฐ 'เจคเฉ, เจเจ เจ เจธเฉเจ เจชเฉเจเฉเจ เจฆเฉ เจจเจพเจฒ เจชเฉเจฐเจฆเจพเจจ เจเฉเจคเฉ เจเจ เจกเฉเจเจพเจธเฉเจ เจจเฉเฉฐ เจฒเฉเจเจฆเฉ เจนเจพเจ เจธเฉเจฅเจฐเจพ. เจเจธ เจกเฉเจเจพเจธเฉเจ เจตเจฟเฉฑเจ เจเฉเจฌเฉ เจฆเฉเจเจ เจเจเจจเจพเจตเจพเจ เจฌเจพเจฐเฉ เจ เฉฐเจคเจฐเจฐเจพเจธเจผเจเจฐเฉ เจธเจฟเจนเจค เจธเฉฐเจเจ เจจ เจฆเฉเจเจฐเจพ เจชเฉเจฐเจฆเจพเจจ เจเฉเจคเฉ เจเจ เจเจพเจฃเจเจพเจฐเฉ เจธเจผเจพเจฎเจฒ เจนเฉเฅค
who
#> # A tibble: 7,240 x 60
#> country iso2 iso3 year new_sp_m014 new_sp_m1524 new_sp_m2534
#> <chr> <chr> <chr> <int> <int> <int> <int>
#> 1 Afghanโฆ AF AFG 1980 NA NA NA
#> 2 Afghanโฆ AF AFG 1981 NA NA NA
#> 3 Afghanโฆ AF AFG 1982 NA NA NA
#> 4 Afghanโฆ AF AFG 1983 NA NA NA
#> 5 Afghanโฆ AF AFG 1984 NA NA NA
#> 6 Afghanโฆ AF AFG 1985 NA NA NA
#> 7 Afghanโฆ AF AFG 1986 NA NA NA
#> 8 Afghanโฆ AF AFG 1987 NA NA NA
#> 9 Afghanโฆ AF AFG 1988 NA NA NA
#> 10 Afghanโฆ AF AFG 1989 NA NA NA
#> # โฆ with 7,230 more rows, and 53 more variables
เจเจ เจเจธเจฆเฉ เจจเจฟเจฐเจงเจพเจฐเจจ เจฆเจพ เจจเจฟเจฐเจฎเจพเจฃ เจเจฐเฉเจเฅค
spec <- who %>%
pivot_longer_spec(new_sp_m014:newrel_f65, values_to = "count")
#> # A tibble: 56 x 3
#> .name .value name
#> <chr> <chr> <chr>
#> 1 new_sp_m014 count new_sp_m014
#> 2 new_sp_m1524 count new_sp_m1524
#> 3 new_sp_m2534 count new_sp_m2534
#> 4 new_sp_m3544 count new_sp_m3544
#> 5 new_sp_m4554 count new_sp_m4554
#> 6 new_sp_m5564 count new_sp_m5564
#> 7 new_sp_m65 count new_sp_m65
#> 8 new_sp_f014 count new_sp_f014
#> 9 new_sp_f1524 count new_sp_f1524
#> 10 new_sp_f2534 count new_sp_f2534
#> # โฆ with 46 more rows
เจเฉเจคเจฐ เจฆเฉเจธเจผ, iso2, iso3 เจชเจนเจฟเจฒเจพเจ เจนเฉ เจตเฉเจฐเฉเจเจฌเจฒ เจนเจจเฅค เจธเจพเจกเจพ เจเฉฐเจฎ เจเจพเจฒเจฎเจพเจ เจจเฉเฉฐ เจซเจฒเจฟเฉฑเจช เจเจฐเจจเจพ เจนเฉ new_sp_m014 'เจคเฉ newrel_f65.
เจเจนเจจเจพเจ เจเจพเจฒเจฎเจพเจ เจฆเฉ เจจเจพเจฎ เจนเฉเจ เจฒเจฟเจเฉ เจเจพเจฃเจเจพเจฐเฉ เจจเฉเฉฐ เจธเจเฉเจฐ เจเจฐเจฆเฉ เจนเจจ:
- เจ
เจเฉเจคเจฐ
new_
เจเจน เจฆเจฐเจธเจพเจเจเจฆเจพ เจนเฉ เจเจฟ เจเจพเจฒเจฎ เจตเจฟเฉฑเจ เจคเจชเจฆเจฟเจ เจฆเฉ เจจเจตเฉเจ เจเฉเจธเจพเจ เจฌเจพเจฐเฉ เจกเฉเจเจพ เจธเจผเจพเจฎเจฒ เจนเฉ, เจฎเฉเจเฉเจฆเจพ เจคเจพเจฐเฉเจ เจซเจฐเฉเจฎ เจตเจฟเฉฑเจ เจธเจฟเจฐเจซ เจจเจตเฉเจเจ เจฌเจฟเจฎเจพเจฐเฉเจเจ เจฌเจพเจฐเฉ เจเจพเจฃเจเจพเจฐเฉ เจธเจผเจพเจฎเจฒ เจนเฉ, เจเจธเจฒเจ เจฎเฉเจเฉเจฆเจพ เจธเฉฐเจฆเจฐเจญ เจตเจฟเฉฑเจ เจเจธ เจ เจเฉเจคเจฐ เจฆเจพ เจเฉเจ เจ เจฐเจฅ เจจเจนเฉเจ เจนเฉเฅค sp
/rel
/sp
/ep
เจเฉฑเจ เจฌเจฟเจฎเจพเจฐเฉ เจฆเจพ เจชเจคเจพ เจฒเจเจพเจเจฃ เจฒเจ เจเฉฑเจ เจขเฉฐเจ เจฆเจพ เจตเจฐเจฃเจจ เจเจฐเจฆเจพ เจนเฉเฅคm
/f
เจฎเจฐเฉเจเจผ เจฆเจพ เจฒเจฟเฉฐเจ.014
/1524
/2535
/3544
/4554
/65
เจฎเจฐเฉเจเจผ เจฆเฉ เจเจฎเจฐ เจธเฉเจฎเจพ.
เจ
เจธเฉเจ เจซเฉฐเจเจธเจผเจจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจเฉ เจเจนเจจเจพเจ เจเจพเจฒเจฎเจพเจ เจจเฉเฉฐ เจตเฉฐเจก เจธเจเจฆเฉ เจนเจพเจ extract()
เจจเจฟเจฏเจฎเจค เจธเจฎเฉเจเจฐเจจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจฆเฉ เจนเฉเจ.
spec <- spec %>%
extract(name, c("diagnosis", "gender", "age"), "new_?(.*)_(.)(.*)")
#> # A tibble: 56 x 5
#> .name .value diagnosis gender age
#> <chr> <chr> <chr> <chr> <chr>
#> 1 new_sp_m014 count sp m 014
#> 2 new_sp_m1524 count sp m 1524
#> 3 new_sp_m2534 count sp m 2534
#> 4 new_sp_m3544 count sp m 3544
#> 5 new_sp_m4554 count sp m 4554
#> 6 new_sp_m5564 count sp m 5564
#> 7 new_sp_m65 count sp m 65
#> 8 new_sp_f014 count sp f 014
#> 9 new_sp_f1524 count sp f 1524
#> 10 new_sp_f2534 count sp f 2534
#> # โฆ with 46 more rows
เจเจฟเจฐเจชเจพ เจเจฐเจเฉ เจเจพเจฒเจฎ เจจเฉเฉฐ เจจเฉเจ เจเจฐเฉ .name เจเจธ เจตเจฟเฉฑเจ เจเฉเจ เจคเจฌเจฆเฉเจฒเฉ เจจเจนเฉเจ เจนเฉเจฃเฉ เจเจพเจนเฉเจฆเฉ เจเจฟเจเจเจเจฟ เจเจน เจฎเฉเจฒ เจกเฉเจเจพเจธเฉเจ เจฆเฉ เจเจพเจฒเจฎ เจจเจพเจฎเจพเจ เจตเจฟเฉฑเจ เจธเจพเจกเฉ เจธเฉเจเจเจพเจเจ เจนเฉเฅค
เจฒเจฟเฉฐเจ เจ เจคเฉ เจเจฎเจฐ (เจเจพเจฒเจฎ เจฒเจฟเฉฐเจ ะธ เจฆเฉ เจเจฎเจฐ) เจฆเฉ เจธเจฅเจฟเจฐ เจ เจคเฉ เจเจพเจฃเฉ-เจชเจเจพเจฃเฉ เจฎเฉเฉฑเจฒ เจนเจจ, เจเจธเจฒเจ เจเจนเจจเจพเจ เจเจพเจฒเจฎเจพเจ เจจเฉเฉฐ เจเจพเจฐเจเจพเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฃ เจฆเฉ เจธเจฟเจซเจพเจฐเจธเจผ เจเฉเจคเฉ เจเจพเจเจฆเฉ เจนเฉ:
spec <- spec %>%
mutate(
gender = factor(gender, levels = c("f", "m")),
age = factor(age, levels = unique(age), ordered = TRUE)
)
เจ
เฉฐเจค เจตเจฟเฉฑเจ, เจจเจฟเจฐเจงเจพเจฐเจจ เจจเฉเฉฐ เจฒเจพเจเฉ เจเจฐเจจ เจฒเจ เจเฉ เจ
เจธเฉเจ เจ
เจธเจฒ เจฎเจฟเจคเฉ เจซเจฐเฉเจฎ เจตเจฟเฉฑเจ เจฌเจฃเจพเจเจ เจนเฉ เจเฉ เจธเจพเจจเฉเฉฐ เจเฉฑเจ เจฆเจฒเฉเจฒ เจตเจฐเจคเจฃ เจฆเฉ เจฒเฉเฉ เจนเฉ spec เจซเฉฐเจเจธเจผเจจ เจตเจฟเฉฑเจ pivot_longer()
.
who %>% pivot_longer(spec = spec)
#> # A tibble: 405,440 x 8
#> country iso2 iso3 year diagnosis gender age count
#> <chr> <chr> <chr> <int> <chr> <fct> <ord> <int>
#> 1 Afghanistan AF AFG 1980 sp m 014 NA
#> 2 Afghanistan AF AFG 1980 sp m 1524 NA
#> 3 Afghanistan AF AFG 1980 sp m 2534 NA
#> 4 Afghanistan AF AFG 1980 sp m 3544 NA
#> 5 Afghanistan AF AFG 1980 sp m 4554 NA
#> 6 Afghanistan AF AFG 1980 sp m 5564 NA
#> 7 Afghanistan AF AFG 1980 sp m 65 NA
#> 8 Afghanistan AF AFG 1980 sp f 014 NA
#> 9 Afghanistan AF AFG 1980 sp f 1524 NA
#> 10 Afghanistan AF AFG 1980 sp f 2534 NA
#> # โฆ with 405,430 more rows
เจนเจฐ เจเฉเจเจผ เจเฉ เจ เจธเฉเจ เจนเฉเจฃเฉ เจเฉเจคเฉ เจนเฉ เจจเฉเฉฐ เจนเฉเจ เจพเจ เจฆเจฟเฉฑเจคเฉ เจ เจจเฉเจธเจพเจฐ เจฏเฉเจเจจเจพเจฌเฉฑเจง เจฐเฉเจช เจตเจฟเฉฑเจ เจฆเจฐเจธเจพเจเจ เจเจพ เจธเจเจฆเจพ เจนเฉ:
เจเจ เจฎเฉเฉฑเจฒเจพเจ (.value) เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจฆเฉ เจนเฉเจ เจจเจฟเจฐเจงเจพเจฐเจจ
เจเจชเจฐเฉเจเจค เจเจฆเจพเจนเจฐเจจ เจตเจฟเฉฑเจ, เจจเจฟเจฐเจงเจพเจฐเจจ เจเจพเจฒเจฎ .เจฎเฉเฉฑเจฒ เจธเจฟเจฐเจซ เจเฉฑเจ เจฎเฉเฉฑเจฒ เจฐเฉฑเจเจฆเจพ เจนเฉ, เจเจผเจฟเจเจฆเจพเจคเจฐ เจฎเจพเจฎเจฒเจฟเจเจ เจตเจฟเฉฑเจ เจ เจเจฟเจนเจพ เจนเฉเฉฐเจฆเจพ เจนเฉเฅค
เจชเจฐ เจเจฆเฉ-เจเจฆเจพเจเจ เจ
เจเจฟเจนเฉ เจธเจฅเจฟเจคเฉ เจชเฉเจฆเจพ เจนเฉ เจธเจเจฆเฉ เจนเฉ เจเจฆเฉเจ เจคเฉเจนเจพเจจเฉเฉฐ เจฎเฉเฉฑเจฒเจพเจ เจตเจฟเฉฑเจ เจตเฉฑเจ-เจตเฉฑเจ เจกเจพเจเจพ เจเจฟเจธเจฎเจพเจ เจตเจพเจฒเฉ เจเจพเจฒเจฎเจพเจ เจคเฉเจ เจกเจพเจเจพ เจเจเฉฑเจ เจพ เจเจฐเจจ เจฆเฉ เจฒเฉเฉ เจนเฉเฉฐเจฆเฉ เจนเฉเฅค เจเฉฑเจ เจตเจฟเจฐเจพเจธเจคเฉ เจซเฉฐเจเจธเจผเจจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจจเจพ spread()
เจเจน เจเจฐเจจเจพ เจเจพเจซเจผเฉ เจฎเฉเจธเจผเจเจฒ เจนเฉเจตเฉเจเจพเฅค
เจนเฉเจ เจฆเจฟเฉฑเจคเฉ เจเจฆเจพเจนเจฐเจฃ เจคเฉเจ เจฒเจ เจเจ เจนเฉ
เจเจ เจเฉฑเจ เจธเจฟเจเจฒเจพเจ เจกเฉเจเจพเจซเฉเจฐเฉเจฎ เจฌเจฃเจพเจเจเฅค
family <- tibble::tribble(
~family, ~dob_child1, ~dob_child2, ~gender_child1, ~gender_child2,
1L, "1998-11-26", "2000-01-29", 1L, 2L,
2L, "1996-06-22", NA, 2L, NA,
3L, "2002-07-11", "2004-04-05", 2L, 2L,
4L, "2004-10-10", "2009-08-27", 1L, 1L,
5L, "2000-12-05", "2005-02-28", 2L, 1L,
)
family <- family %>% mutate_at(vars(starts_with("dob")), parse_date)
#> # A tibble: 5 x 5
#> family dob_child1 dob_child2 gender_child1 gender_child2
#> <int> <date> <date> <int> <int>
#> 1 1 1998-11-26 2000-01-29 1 2
#> 2 2 1996-06-22 NA 2 NA
#> 3 3 2002-07-11 2004-04-05 2 2
#> 4 4 2004-10-10 2009-08-27 1 1
#> 5 5 2000-12-05 2005-02-28 2 1
เจฌเจฃเจพเจ เจเจ เจฎเจฟเจคเฉ เจซเจฐเฉเจฎ เจตเจฟเฉฑเจ เจนเจฐเฉเจ เจฒเจพเจเจจ เจตเจฟเฉฑเจ เจเฉฑเจ เจชเจฐเจฟเจตเจพเจฐ เจฆเฉ เจฌเฉฑเจเจฟเจเจ เจฆเจพ เจกเฉเจเจพ เจนเฉเฉฐเจฆเจพ เจนเฉเฅค เจชเจฐเจฟเจตเจพเจฐเจพเจ เจฆเฉ เจเฉฑเจ เจเจพเจ เจฆเฉ เจฌเฉฑเจเฉ เจนเฉ เจธเจเจฆเฉ เจนเจจเฅค เจนเจฐเฉเจ เจฌเฉฑเจเฉ เจฒเจ, เจเจจเจฎ เจฎเจฟเจคเฉ เจ เจคเฉ เจฒเจฟเฉฐเจ 'เจคเฉ เจกเฉเจเจพ เจชเฉเจฐเจฆเจพเจจ เจเฉเจคเจพ เจเจพเจเจฆเจพ เจนเฉ, เจ เจคเฉ เจนเจฐเฉเจ เจฌเฉฑเจเฉ เจฒเจ เจกเฉเจเจพ เจตเฉฑเจเจฐเฉ เจเจพเจฒเจฎเจพเจ เจตเจฟเฉฑเจ เจนเฉเฉฐเจฆเจพ เจนเฉ; เจธเจพเจกเจพ เจเฉฐเจฎ เจเจธ เจกเฉเจเจพ เจจเฉเฉฐ เจตเจฟเจธเจผเจฒเฉเจธเจผเจฃ เจฒเจ เจธเจนเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฒเจฟเจเจเจฃเจพ เจนเฉเฅค
เจเจฟเจฐเจชเจพ เจเจฐเจเฉ เจงเจฟเจเจจ เจฆเจฟเจ เจเจฟ เจธเจพเจกเฉ เจเฉเจฒ เจนเจฐเฉเจ เจฌเฉฑเจเฉ เจฌเจพเจฐเฉ เจเจพเจฃเจเจพเจฐเฉ เจตเจพเจฒเฉ เจฆเฉ เจตเฉเจฐเฉเจเจฌเจฒ เจนเจจ: เจเจนเจจเจพเจ เจฆเจพ เจฒเจฟเฉฐเจ เจ
เจคเฉ เจเจจเจฎ เจฎเจฟเจคเฉ (เจ
เจเฉเจคเจฐ เจฆเฉ เจจเจพเจฒ เจเจพเจฒเจฎ DOP เจเจจเจฎ เจฎเจฟเจคเฉ, เจ
เจเฉเจคเจฐ เจตเจพเจฒเฉ เจเจพเจฒเจฎ เจธเจผเจพเจฎเจฒ เจนเจจ เจฒเจฟเฉฐเจ เจฌเฉฑเจเฉ เจฆเจพ เจฒเจฟเฉฐเจ เจธเจผเจพเจฎเจฒ เจนเฉ)เฅค เจธเฉฐเจญเจพเจตเจฟเจค เจจเจคเฉเจเจพ เจเจน เจนเฉ เจเจฟ เจเจน เจตเฉฑเจเจฐเฉ เจเจพเจฒเจฎเจพเจ เจตเจฟเฉฑเจ เจชเฉเจฐเจเจ เจนเฉเจฃเฉ เจเจพเจนเฉเจฆเฉ เจนเจจ. เจ
เจธเฉเจ เจเฉฑเจ เจธเจชเฉเจธเฉเจซเจฟเจเฉเจธเจผเจจ เจคเจฟเจเจฐ เจเจฐเจเฉ เจ
เจเจฟเจนเจพ เจเจฐ เจธเจเจฆเฉ เจนเจพเจ เจเจฟเจธ เจตเจฟเฉฑเจ เจเจพเจฒเจฎ .value
เจฆเฉ เจฆเฉ เจตเฉฑเจ-เจตเฉฑเจ เจ
เจฐเจฅ เจนเฉเจฃเจเฉเฅค
spec <- family %>%
pivot_longer_spec(-family) %>%
separate(col = name, into = c(".value", "child"))%>%
mutate(child = parse_number(child))
#> # A tibble: 4 x 3
#> .name .value child
#> <chr> <chr> <dbl>
#> 1 dob_child1 dob 1
#> 2 dob_child2 dob 2
#> 3 gender_child1 gender 1
#> 4 gender_child2 gender 2
เจเจธ เจฒเจ, เจเจ เจเจชเจฐเฉเจเจค เจเฉเจก เจฆเฉเจเจฐเจพ เจเฉเจคเฉเจเจ เจเจเจเจ เจเจพเจฐเจตเจพเจเจเจ 'เจคเฉ เจเฉฑเจ เจเจฆเจฎ-เจฆเจฐ-เจเจฆเจฎ เจจเจเจผเจฐ เจฎเจพเจฐเฉเจเฅค
pivot_longer_spec(-family)
โ เจเฉฑเจ เจจเจฟเจฐเจงเจพเจฐเจจ เจฌเจฃเจพเจ เจเฉ เจชเจฐเจฟเจตเจพเจฐ เจเจพเจฒเจฎ เจจเฉเฉฐ เจเฉฑเจก เจเฉ เจธเจพเจฐเฉ เจฎเฉเจเฉเจฆเจพ เจเจพเจฒเจฎเจพเจ เจจเฉเฉฐ เจธเฉฐเจเฉเจเจฟเจค เจเจฐเจฆเจพ เจนเฉเฅคseparate(col = name, into = c(".value", "child"))
- เจเจพเจฒเจฎ เจจเฉเฉฐ เจตเฉฐเจกเฉ .name, เจเจฟเจธ เจตเจฟเฉฑเจ เจธเจฐเฉเจค เจเฉเจคเจฐเจพเจ เจฆเฉ เจจเจพเจฎ เจธเจผเจพเจฎเจฒ เจนเฉเฉฐเจฆเฉ เจนเจจ, เจ เฉฐเจกเจฐเจธเจเฉเจฐ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจฆเฉ เจนเฉเจ เจ เจคเฉ เจจเจคเฉเจเฉ เจตเจพเจฒเฉ เจฎเฉเฉฑเจฒเจพเจ เจจเฉเฉฐ เจเจพเจฒเจฎเจพเจ เจตเจฟเฉฑเจ เจฆเจพเจเจฒ เจเจฐเจฆเฉ เจนเฉเจ .เจฎเฉเฉฑเจฒ ะธ เจฌเฉฑเจเฉ.mutate(child = parse_number(child))
- เจซเฉเจฒเจก เจฎเฉเฉฑเจฒเจพเจ เจจเฉเฉฐ เจฌเจฆเจฒเฉ เจฌเฉฑเจเฉ เจเฉเจเจธเจ เจคเฉเจ เจธเฉฐเจเจฟเจเจคเจฎเจ เจกเฉเจเจพ เจเจฟเจธเจฎ เจคเฉฑเจเฅค
เจนเฉเจฃ เจ เจธเฉเจ เจ เจธเจฒเฉ เจกเฉเจเจพเจซเฉเจฐเฉเจฎ 'เจคเฉ เจจเจคเฉเจเฉ เจฆเฉ เจจเจฟเจฐเจงเจพเจฐเจจ เจจเฉเฉฐ เจฒเจพเจเฉ เจเจฐ เจธเจเจฆเฉ เจนเจพเจ เจ เจคเฉ เจธเจพเจฐเจฃเฉ เจจเฉเฉฐ เจฒเฉเฉเฉเจเจฆเฉ เจฐเฉเจช เจตเจฟเฉฑเจ เจฒเจฟเจ เจธเจเจฆเฉ เจนเจพเจเฅค
family %>%
pivot_longer(spec = spec, na.rm = T)
#> # A tibble: 9 x 4
#> family child dob gender
#> <int> <dbl> <date> <int>
#> 1 1 1 1998-11-26 1
#> 2 1 2 2000-01-29 2
#> 3 2 1 1996-06-22 2
#> 4 3 1 2002-07-11 2
#> 5 3 2 2004-04-05 2
#> 6 4 1 2004-10-10 1
#> 7 4 2 2009-08-27 1
#> 8 5 1 2000-12-05 2
#> 9 5 2 2005-02-28 1
เจ
เจธเฉเจ เจฆเจฒเฉเจฒ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจฆเฉ เจนเจพเจ na.rm = TRUE
, เจเจฟเจเจเจเจฟ เจกเฉเจเจพ เจฆเจพ เจฎเฉเจเฉเจฆเจพ เจฐเฉเจช เจเฉเจฐ-เจฎเฉเจเฉเจฆ เจจเจฟเจฐเฉเจเจฃเจพเจ เจฒเจ เจตเจพเจงเฉ เจเจคเจพเจฐเจพเจ เจฌเจฃเจพเจเจฃ เจฒเจ เจฎเจเจฌเฉเจฐ เจเจฐเจฆเจพ เจนเฉเฅค เจเจฟเจเจเจเจฟ เจชเจฐเจฟเจตเจพเจฐ 2 เจตเจฟเฉฑเจ เจเฉฑเจ เจนเฉ เจฌเฉฑเจเจพ เจนเฉ, na.rm = TRUE
เจเจพเจฐเฉฐเจเฉ เจฆเจฟเฉฐเจฆเจพ เจนเฉ เจเจฟ เจชเจฐเจฟเจตเจพเจฐ 2 เจฆเฉ เจเจเจเจชเฉเฉฑเจ เจตเจฟเฉฑเจ เจเฉฑเจ เจเจคเจพเจฐ เจนเฉเจตเฉเจเฉเฅค
เจคเจพเจฐเฉเจ เจซเจฐเฉเจฎเจพเจ เจจเฉเฉฐ เจฒเฉฐเจฌเฉ เจคเฉเจ เจเฉเฉเฉ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฃเจพ
pivot_wider()
- เจเจฒเจ เจชเจฐเจฟเจตเจฐเจคเจจ เจนเฉ, เจ
เจคเฉ เจเจธเจฆเฉ เจเจฒเจ เจเจคเจพเจฐเจพเจ เจฆเฉ เจเจฟเจฃเจคเฉ เจเจเจพ เจเฉ เจฎเจฟเจคเฉ เจซเจฐเฉเจฎ เจฆเฉ เจเจพเจฒเจฎเจพเจ เจฆเฉ เจธเฉฐเจเจฟเจ เจจเฉเฉฐ เจตเจงเจพเจเจเจฆเจพ เจนเฉเฅค
เจกเฉเจเจพ เจจเฉเฉฐ เจธเจนเฉ เจฐเฉเจช เจตเจฟเฉฑเจ เจฒเจฟเจเจเจฃ เจฒเจ เจเจธ เจเจฟเจธเจฎ เจฆเฉ เจชเจฐเจฟเจตเจฐเจคเจจ เจฌเจนเฉเจค เจเฉฑเจ เจตเจฐเจคเฉ เจเจพเจเจฆเฉ เจนเฉ, เจนเจพเจฒเจพเจเจเจฟ, เจเจน เจคเจเจจเฉเจ เจชเฉเจฐเจธเจคเฉเจคเฉเจเจ เจตเจฟเฉฑเจ เจตเจฐเจคเฉเจเจ เจเจพเจฃ เจตเจพเจฒเฉเจเจ เจงเจฐเฉเจตเฉ เจธเจพเจฐเจฃเฉเจเจ เจฌเจฃเจพเจเจฃ เจฒเจ, เจเจพเจ เจเฉเจ เจนเฉเจฐ เจธเจพเจงเจจเจพเจ เจจเจพเจฒ เจเจเฉเจเจฐเจฃ เจฒเจ เจเจชเจฏเฉเจเฉ เจนเฉ เจธเจเจฆเฉ เจนเฉเฅค
เจ
เจธเจฒ เจตเจฟเฉฑเจ เจซเฉฐเจเจธเจผเจจ pivot_longer()
ะธ pivot_wider()
เจธเจฎเจฎเจฟเจคเฉ เจนเจจ, เจ
เจคเฉ เจเฉฑเจ เจฆเฉเจเฉ เจฆเฉ เจเจฒเจ เจเจฟเจฐเจฟเจเจตเจพเจ เจชเฉเจฆเจพ เจเจฐเจฆเฉ เจนเจจ, เจเจฟเจตเฉเจ เจเจฟ: df %>% pivot_longer(spec = spec) %>% pivot_wider(spec = spec)
ะธ df %>% pivot_wider(spec = spec) %>% pivot_longer(spec = spec)
เจ
เจธเจฒเฉ df เจตเจพเจชเจธ เจเจฐ เจฆเฉเจตเฉเจเจพเฅค
เจเฉฑเจ เจธเจพเจฐเจฃเฉ เจจเฉเฉฐ เจเฉฑเจ เจตเจฟเจธเจผเจพเจฒ เจซเจพเจฐเจฎเฉเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒเจฃ เจฆเจพ เจธเจญ เจคเฉเจ เจธเจฐเจฒ เจเจฆเจพเจนเจฐเจฃ
เจเจน เจฆเจฟเจเจพเจเจฃ เจฒเจ เจเจฟ เจซเฉฐเจเจธเจผเจจ เจเจฟเจตเฉเจ เจเฉฐเจฎ เจเจฐเจฆเจพ เจนเฉ pivot_wider()
เจ
เจธเฉเจ เจกเฉเจเจพเจธเฉเจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจพเจเจเฉ เจฎเฉฑเจเฉเจเจ_เจฆเจพ เจธเจพเจนเจฎเจฃเจพ, เจเฉ เจเจธ เจฌเจพเจฐเฉ เจเจพเจฃเจเจพเจฐเฉ เจธเจเฉเจฐ เจเจฐเจฆเจพ เจนเฉ เจเจฟ เจเจฟเจตเฉเจ เจตเฉฑเจ-เจตเฉฑเจ เจธเจเฉเจธเจผเจจ เจฆเจฐเจฟเจ เจฆเฉ เจจเจพเจฒ เจฎเฉฑเจเฉเจเจ เจฆเฉ เจเจคเฉ เจจเฉเฉฐ เจฐเจฟเจเจพเจฐเจก เจเจฐเจฆเฉ เจนเจจเฅค
#> # A tibble: 114 x 3
#> fish station seen
#> <fct> <fct> <int>
#> 1 4842 Release 1
#> 2 4842 I80_1 1
#> 3 4842 Lisbon 1
#> 4 4842 Rstr 1
#> 5 4842 Base_TD 1
#> 6 4842 BCE 1
#> 7 4842 BCW 1
#> 8 4842 BCE2 1
#> 9 4842 BCW2 1
#> 10 4842 MAE 1
#> # โฆ with 104 more rows
เจเจผเจฟเจเจฆเจพเจคเจฐ เจฎเจพเจฎเจฒเจฟเจเจ เจตเจฟเฉฑเจ, เจเจน เจธเจพเจฐเจฃเฉ เจตเจงเฉเจฐเฉ เจเจพเจฃเจเจพเจฐเฉ เจญเจฐเจชเฉเจฐ เจ เจคเฉ เจตเจฐเจคเฉเจ เจตเจฟเฉฑเจ เจเจธเจพเจจ เจนเฉเจตเฉเจเฉ เจเฉเจเจฐ เจคเฉเจธเฉเจ เจเฉฑเจ เจตเฉฑเจเจฐเฉ เจเจพเจฒเจฎ เจตเจฟเฉฑเจ เจนเจฐเฉเจ เจธเจเฉเจธเจผเจจ เจฒเจ เจเจพเจฃเจเจพเจฐเฉ เจชเฉเจธเจผ เจเจฐเจฆเฉ เจนเฉเฅค
fish_encounters %>% pivot_wider(names_from = station, values_from = seen)
fish_encounters %>% pivot_wider(names_from = station, values_from = seen)
#> # A tibble: 19 x 12
#> fish Release I80_1 Lisbon Rstr Base_TD BCE BCW BCE2 BCW2 MAE
#> <fct> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int>
#> 1 4842 1 1 1 1 1 1 1 1 1 1
#> 2 4843 1 1 1 1 1 1 1 1 1 1
#> 3 4844 1 1 1 1 1 1 1 1 1 1
#> 4 4845 1 1 1 1 1 NA NA NA NA NA
#> 5 4847 1 1 1 NA NA NA NA NA NA NA
#> 6 4848 1 1 1 1 NA NA NA NA NA NA
#> 7 4849 1 1 NA NA NA NA NA NA NA NA
#> 8 4850 1 1 NA 1 1 1 1 NA NA NA
#> 9 4851 1 1 NA NA NA NA NA NA NA NA
#> 10 4854 1 1 NA NA NA NA NA NA NA NA
#> # โฆ with 9 more rows, and 1 more variable: MAW <int>
เจเจน เจกเฉเจเจพ เจธเฉเจ เจธเจฟเจฐเจซ เจเจพเจฃเจเจพเจฐเฉ เจจเฉเฉฐ เจฐเจฟเจเจพเจฐเจก เจเจฐเจฆเจพ เจนเฉ เจเจฆเฉเจ เจธเจเฉเจธเจผเจจ เจฆเฉเจเจฐเจพ เจฎเฉฑเจเฉเจเจ เจฆเจพ เจชเจคเจพ เจฒเจเจพเจเจ เจเจพเจเจฆเจพ เจนเฉ, เจฏเจพเจจเฉ. เจเฉเจเจฐ เจเจฟเจธเฉ เจธเจเฉเจธเจผเจจ เจฆเฉเจเจฐเจพ เจเฉเจ เจฎเฉฑเจเฉ เจฐเจฟเจเจพเจฐเจก เจจเจนเฉเจ เจเฉเจคเฉ เจเจ เจธเฉ, เจคเจพเจ เจเจน เจกเฉเจเจพ เจธเจพเจฐเจฃเฉ เจตเจฟเฉฑเจ เจจเจนเฉเจ เจนเฉเจตเฉเจเจพเฅค เจเจธเจฆเจพ เจฎเจคเจฒเจฌ เจนเฉ เจเจฟ เจเจเจเจชเฉเฉฑเจ NA เจจเจพเจฒ เจญเจฐเฉ เจเจพเจตเฉเจเฉเฅค
เจนเจพเจฒเจพเจเจเจฟ, เจเจธ เจฎเจพเจฎเจฒเฉ เจตเจฟเฉฑเจ เจ
เจธเฉเจ เจเจพเจฃเจฆเฉ เจนเจพเจ เจเจฟ เจเฉฑเจ เจฐเจฟเจเจพเจฐเจก เจฆเฉ เจ
เจฃเจนเฉเจเจฆ เจฆเจพ เจฎเจคเจฒเจฌ เจนเฉ เจเจฟ เจฎเฉฑเจเฉ เจจเฉเฉฐ เจจเจนเฉเจ เจฆเฉเจเจฟเจ เจเจฟเจ เจธเฉ, เจเจธ เจฒเจ เจ
เจธเฉเจ เจฆเจฒเฉเจฒ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐ เจธเจเจฆเฉ เจนเจพเจ values_fill เจซเฉฐเจเจธเจผเจจ เจตเจฟเฉฑเจ pivot_wider()
เจ
เจคเฉ เจเจนเจจเจพเจ เจเฉเฉฐเจฎ เจนเฉเจ เจฎเฉเฉฑเจฒเจพเจ เจจเฉเฉฐ เจเจผเฉเจฐเฉ เจจเจพเจฒ เจญเจฐเฉ:
fish_encounters %>% pivot_wider(
names_from = station,
values_from = seen,
values_fill = list(seen = 0)
)
#> # A tibble: 19 x 12
#> fish Release I80_1 Lisbon Rstr Base_TD BCE BCW BCE2 BCW2 MAE
#> <fct> <int> <int> <int> <int> <int> <int> <int> <int> <int> <int>
#> 1 4842 1 1 1 1 1 1 1 1 1 1
#> 2 4843 1 1 1 1 1 1 1 1 1 1
#> 3 4844 1 1 1 1 1 1 1 1 1 1
#> 4 4845 1 1 1 1 1 0 0 0 0 0
#> 5 4847 1 1 1 0 0 0 0 0 0 0
#> 6 4848 1 1 1 1 0 0 0 0 0 0
#> 7 4849 1 1 0 0 0 0 0 0 0 0
#> 8 4850 1 1 0 1 1 1 1 0 0 0
#> 9 4851 1 1 0 0 0 0 0 0 0 0
#> 10 4854 1 1 0 0 0 0 0 0 0 0
#> # โฆ with 9 more rows, and 1 more variable: MAW <int>
เจฎเจฒเจเฉเจชเจฒ เจธเจฐเฉเจค เจตเฉเจฐเฉเจเจฌเจฒเจพเจ เจคเฉเจ เจเฉฑเจ เจเจพเจฒเจฎ เจจเจพเจฎ เจคเจฟเจเจฐ เจเจฐเจจเจพ
เจเจฒเจชเจจเจพ เจเจฐเฉ เจเจฟ เจธเจพเจกเฉ เจเฉเจฒ เจเจคเจชเจพเจฆ, เจฆเฉเจธเจผ เจ เจคเฉ เจธเจพเจฒ เจฆเฉ เจธเฉเจฎเฉเจฒ เจตเจพเจฒเฉ เจเฉฑเจ เจธเจพเจฐเจฃเฉ เจนเฉเฅค เจเฉฑเจ เจเฉเจธเจ เจฎเจฟเจคเฉ เจซเจฐเฉเจฎ เจฌเจฃเจพเจเจฃ เจฒเจ, เจคเฉเจธเฉเจ เจนเฉเจ เจพเจ เจฆเจฟเฉฑเจคเฉ เจเฉเจก เจจเฉเฉฐ เจเจฒเจพ เจธเจเจฆเฉ เจนเฉ:
df <- expand_grid(
product = c("A", "B"),
country = c("AI", "EI"),
year = 2000:2014
) %>%
filter((product == "A" & country == "AI") | product == "B") %>%
mutate(value = rnorm(nrow(.)))
#> # A tibble: 45 x 4
#> product country year value
#> <chr> <chr> <int> <dbl>
#> 1 A AI 2000 -2.05
#> 2 A AI 2001 -0.676
#> 3 A AI 2002 1.60
#> 4 A AI 2003 -0.353
#> 5 A AI 2004 -0.00530
#> 6 A AI 2005 0.442
#> 7 A AI 2006 -0.610
#> 8 A AI 2007 -2.77
#> 9 A AI 2008 0.899
#> 10 A AI 2009 -0.106
#> # โฆ with 35 more rows
เจธเจพเจกเจพ เจเฉฐเจฎ เจกเฉเจเจพ เจซเจฐเฉเจฎ เจฆเจพ เจตเจฟเจธเจคเจพเจฐ เจเจฐเจจเจพ เจนเฉ เจคเจพเจ เจเฉ เจเฉฑเจ เจเจพเจฒเจฎ เจตเจฟเฉฑเจ เจเจคเจชเจพเจฆ เจ เจคเฉ เจฆเฉเจธเจผ เจฆเฉ เจนเจฐเฉเจ เจธเฉเจฎเฉเจฒ เจฒเจ เจกเฉเจเจพ เจธเจผเจพเจฎเจฒ เจนเฉเจตเฉเฅค เจ เจเจฟเจนเจพ เจเจฐเจจ เจฒเจ, เจธเจฟเจฐเจซ เจเจฐเจเฉเจฎเฉเจเจ เจตเจฟเฉฑเจ เจชเจพเจธ เจเจฐเฉ เจจเจพเจฎ_เจคเฉเจ เจเฉฑเจ เจตเฉเจเจเจฐ เจเจฟเจธ เจตเจฟเฉฑเจ เจฎเจฟเจฒเจพเจ เจเจพเจฃ เจตเจพเจฒเฉ เจเฉเจคเจฐเจพเจ เจฆเฉ เจจเจพเจ เจนเจจเฅค
df %>% pivot_wider(names_from = c(product, country),
values_from = "value")
#> # A tibble: 15 x 4
#> year A_AI B_AI B_EI
#> <int> <dbl> <dbl> <dbl>
#> 1 2000 -2.05 0.607 1.20
#> 2 2001 -0.676 1.65 -0.114
#> 3 2002 1.60 -0.0245 0.501
#> 4 2003 -0.353 1.30 -0.459
#> 5 2004 -0.00530 0.921 -0.0589
#> 6 2005 0.442 -1.55 0.594
#> 7 2006 -0.610 0.380 -1.28
#> 8 2007 -2.77 0.830 0.637
#> 9 2008 0.899 0.0175 -1.30
#> 10 2009 -0.106 -0.195 1.03
#> # โฆ with 5 more rows
เจคเฉเจธเฉเจ เจเจฟเจธเฉ เจซเฉฐเจเจธเจผเจจ เจฒเจ เจตเจฟเจธเจผเฉเจธเจผเจคเจพเจตเจพเจ เจตเฉ เจฒเจพเจเฉ เจเจฐ เจธเจเจฆเฉ เจนเฉ pivot_wider()
. เจชเจฐ เจเจฆเฉเจ เจชเฉเจธเจผ เจเฉเจคเจพ เจเจฟเจ pivot_wider()
เจจเจฟเจฐเจงเจพเจฐเจจ เจเจฒเจ เจชเจฐเจฟเจตเจฐเจคเจจ เจเจฐเจฆเจพ เจนเฉ pivot_longer()
: เจตเจฟเฉฑเจ เจจเจฟเจฐเจงเจพเจฐเจค เจเจพเจฒเจฎ .name, เจคเฉเจ เจฎเฉเฉฑเจฒเจพเจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจฆเฉ เจนเฉเจ .เจฎเฉเฉฑเจฒ เจ
เจคเฉ เจนเฉเจฐ เจเจพเจฒเจฎเฅค
เจเจธ เจกเฉเจเจพเจธเฉเจ เจฒเจ, เจคเฉเจธเฉเจ เจเฉฑเจ เจเจธเจเจฎ เจจเจฟเจฐเจงเจพเจฐเจจ เจคเจฟเจเจฐ เจเจฐ เจธเจเจฆเฉ เจนเฉ เจเฉเจเจฐ เจคเฉเจธเฉเจ เจเจพเจนเฉเฉฐเจฆเฉ เจนเฉ เจเจฟ เจนเจฐ เจธเฉฐเจญเจต เจฆเฉเจธเจผ เจ เจคเฉ เจเจคเจชเจพเจฆ เจธเฉเจฎเฉเจฒ เจฆเจพ เจเจชเจฃเจพ เจเจพเจฒเจฎ เจนเฉเจตเฉ, เจจเจพ เจเจฟ เจธเจฟเจฐเจซ เจกเฉเจเจพ เจตเจฟเฉฑเจ เจฎเฉเจเฉเจฆ เจเจพเจฒเจฎ:
spec <- df %>%
expand(product, country, .value = "value") %>%
unite(".name", product, country, remove = FALSE)
#> # A tibble: 4 x 4
#> .name product country .value
#> <chr> <chr> <chr> <chr>
#> 1 A_AI A AI value
#> 2 A_EI A EI value
#> 3 B_AI B AI value
#> 4 B_EI B EI value
df %>% pivot_wider(spec = spec) %>% head()
#> # A tibble: 6 x 5
#> year A_AI A_EI B_AI B_EI
#> <int> <dbl> <dbl> <dbl> <dbl>
#> 1 2000 -2.05 NA 0.607 1.20
#> 2 2001 -0.676 NA 1.65 -0.114
#> 3 2002 1.60 NA -0.0245 0.501
#> 4 2003 -0.353 NA 1.30 -0.459
#> 5 2004 -0.00530 NA 0.921 -0.0589
#> 6 2005 0.442 NA -1.55 0.594
เจจเจตเฉเจ tidyr เจธเฉฐเจเจฒเจช เจฆเฉ เจจเจพเจฒ เจเฉฐเจฎ เจเจฐเจจ เจฆเฉเจเจ เจเจ เจเฉฑเจจเจค เจเจฆเจพเจนเจฐเจฃเจพเจ
เจเฉฑเจ เจเจฆเจพเจนเจฐเจจ เจฆเฉ เจคเฉเจฐ 'เจคเฉ เจฏเฉเจเจธ เจเจจเจเจฃเจจเจพ เจเจฎเจฆเจจ เจ เจคเฉ เจเจฟเจฐเจพเจ เจฆเฉ เจกเฉเจเจพเจธเฉเจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจฆเฉ เจนเฉเจ เจกเฉเจเจพ เจจเฉเฉฐ เจธเจพเจซเจผ เจเจฐเจจเจพเฅค
เจกเจพเจเจพ เจธเฉเฉฑเจ เจธเจพเจจเฉเฉฐ_เจฐเฉเจเจ_เจเจจเจเจฎ 2017 เจฒเจ เจ เจฎเจฐเฉเจเจพ เจฆเฉ เจนเจฐเฉเจ เจฐเจพเจ เจฒเจ เจเจธเจค เจเจฎเจฆเจจ เจ เจคเฉ เจเจฟเจฐเจพเจ เจฆเฉ เจเจพเจฃเจเจพเจฐเฉ เจฐเฉฑเจเจฆเจพ เจนเฉ (เจชเฉเจเฉเจ เจตเจฟเฉฑเจ เจเจชเจฒเจฌเจง เจกเฉเจเจพ เจธเฉเฉฑเจ) เจธเฉเจเฉฑเจเฉ เจเจจเจเจฃเจจเจพ).
us_rent_income
#> # A tibble: 104 x 5
#> GEOID NAME variable estimate moe
#> <chr> <chr> <chr> <dbl> <dbl>
#> 1 01 Alabama income 24476 136
#> 2 01 Alabama rent 747 3
#> 3 02 Alaska income 32940 508
#> 4 02 Alaska rent 1200 13
#> 5 04 Arizona income 27517 148
#> 6 04 Arizona rent 972 4
#> 7 05 Arkansas income 23789 165
#> 8 05 Arkansas rent 709 5
#> 9 06 California income 29454 109
#> 10 06 California rent 1358 3
#> # โฆ with 94 more rows
เจเจธ เจฐเฉเจช เจตเจฟเฉฑเจ เจเจฟเจธ เจตเจฟเฉฑเจ เจกเฉเจเจพ เจจเฉเฉฐ เจกเฉเจเจพเจธเฉเจ เจตเจฟเฉฑเจ เจธเจเฉเจฐ เจเฉเจคเจพ เจเจพเจเจฆเจพ เจนเฉ เจธเจพเจจเฉเฉฐ_เจฐเฉเจเจ_เจเจจเจเจฎ เจเจนเจจเจพเจ เจจเจพเจฒ เจเฉฐเจฎ เจเจฐเจจเจพ เจฌเจนเฉเจค เจ เจธเฉเจตเจฟเจงเจพเจเจจเจ เจนเฉ, เจเจธเจฒเจ เจ เจธเฉเจ เจเจพเจฒเจฎเจพเจ เจฆเฉ เจจเจพเจฒ เจเฉฑเจ เจกเฉเจเจพ เจธเฉเฉฑเจ เจฌเจฃเจพเจเจฃเจพ เจเจพเจนเจพเจเจเฉ: เจเจฟเจฐเจพเจ, rent_moe, เจ, เจเจฎเจฆเจจ_เจฎเฉเจ. เจเจธ เจจเจฟเจฐเจงเจพเจฐเจจ เจจเฉเฉฐ เจฌเจฃเจพเจเจฃ เจฆเฉ เจฌเจนเฉเจค เจธเจพเจฐเฉ เจคเจฐเฉเจเฉ เจนเจจ, เจชเจฐ เจฎเฉเฉฑเจ เจเฉฑเจฒ เจเจน เจนเฉ เจเจฟ เจธเจพเจจเฉเฉฐ เจตเฉเจฐเฉเจเจฌเจฒ เจฎเฉเฉฑเจฒเจพเจ เจฆเฉ เจนเจฐ เจธเฉเจฎเฉเจฒ เจจเฉเฉฐ เจฌเจฃเจพเจเจฃ เจฆเฉ เจฒเฉเฉ เจนเฉ เจ เจคเฉ เจ เจจเฉเจฎเจพเจจ/moeเจ เจคเฉ เจซเจฟเจฐ เจเจพเจฒเจฎ เจฆเจพ เจจเจพเจฎ เจคเจฟเจเจฐ เจเจฐเฉเฅค
spec <- us_rent_income %>%
expand(variable, .value = c("estimate", "moe")) %>%
mutate(
.name = paste0(variable, ifelse(.value == "moe", "_moe", ""))
)
#> # A tibble: 4 x 3
#> variable .value .name
#> <chr> <chr> <chr>
#> 1 income estimate income
#> 2 income moe income_moe
#> 3 rent estimate rent
#> 4 rent moe rent_moe
เจเจน เจจเจฟเจฐเจงเจพเจฐเจจ เจชเฉเจฐเจฆเจพเจจ เจเจฐเจจเจพ pivot_wider()
เจธเจพเจจเฉเฉฐ เจเจน เจจเจคเฉเจเจพ เจฆเจฟเฉฐเจฆเจพ เจนเฉ เจเจฟเจธ เจฆเฉ เจ
เจธเฉเจ เจญเจพเจฒ เจเจฐ เจฐเจนเฉ เจนเจพเจ:
us_rent_income %>% pivot_wider(spec = spec)
#> # A tibble: 52 x 6
#> GEOID NAME income income_moe rent rent_moe
#> <chr> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 01 Alabama 24476 136 747 3
#> 2 02 Alaska 32940 508 1200 13
#> 3 04 Arizona 27517 148 972 4
#> 4 05 Arkansas 23789 165 709 5
#> 5 06 California 29454 109 1358 3
#> 6 08 Colorado 32401 109 1125 5
#> 7 09 Connecticut 35326 195 1123 5
#> 8 10 Delaware 31560 247 1076 10
#> 9 11 District of Columbia 43198 681 1424 17
#> 10 12 Florida 25952 70 1077 3
#> # โฆ with 42 more rows
เจตเจฟเจธเจผเจต เจฌเฉเจเจ
เจเจ เจตเจพเจฐ เจฒเฉเฉเฉเจเจฆเฉ เจฐเฉเจช เจตเจฟเฉฑเจ เจเฉฑเจ เจกเฉเจเจพ เจธเฉเฉฑเจ เจฒเจฟเจเจเจฃ เจฒเจ เจเจ เจเจฆเจฎเจพเจ เจฆเฉ เจฒเฉเฉ เจนเฉเฉฐเจฆเฉ เจนเฉเฅค
เจกเจพเจเจพเจธเฉเฉฑเจ เจตเจฟเจธเจผเจต_เจฌเฉเจเจ_เจชเฉเจช 2000 เจ
เจคเฉ 2018 เจฆเฉ เจตเจฟเจเจเจพเจฐ เจนเจฐเฉเจ เจฆเฉเจธเจผ เจฆเฉ เจเจฌเจพเจฆเฉ 'เจคเฉ เจตเจฟเจธเจผเจต เจฌเฉเจเจ เจกเฉเจเจพ เจธเจผเจพเจฎเจฒ เจเจฐเจฆเจพ เจนเฉเฅค
#> # A tibble: 1,056 x 20
#> country indicator `2000` `2001` `2002` `2003` `2004` `2005` `2006`
#> <chr> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 ABW SP.URB.Tโฆ 4.24e4 4.30e4 4.37e4 4.42e4 4.47e+4 4.49e+4 4.49e+4
#> 2 ABW SP.URB.Gโฆ 1.18e0 1.41e0 1.43e0 1.31e0 9.51e-1 4.91e-1 -1.78e-2
#> 3 ABW SP.POP.Tโฆ 9.09e4 9.29e4 9.50e4 9.70e4 9.87e+4 1.00e+5 1.01e+5
#> 4 ABW SP.POP.Gโฆ 2.06e0 2.23e0 2.23e0 2.11e0 1.76e+0 1.30e+0 7.98e-1
#> 5 AFG SP.URB.Tโฆ 4.44e6 4.65e6 4.89e6 5.16e6 5.43e+6 5.69e+6 5.93e+6
#> 6 AFG SP.URB.Gโฆ 3.91e0 4.66e0 5.13e0 5.23e0 5.12e+0 4.77e+0 4.12e+0
#> 7 AFG SP.POP.Tโฆ 2.01e7 2.10e7 2.20e7 2.31e7 2.41e+7 2.51e+7 2.59e+7
#> 8 AFG SP.POP.Gโฆ 3.49e0 4.25e0 4.72e0 4.82e0 4.47e+0 3.87e+0 3.23e+0
#> 9 AGO SP.URB.Tโฆ 8.23e6 8.71e6 9.22e6 9.77e6 1.03e+7 1.09e+7 1.15e+7
#> 10 AGO SP.URB.Gโฆ 5.44e0 5.59e0 5.70e0 5.76e0 5.75e+0 5.69e+0 4.92e+0
#> # โฆ with 1,046 more rows, and 11 more variables: `2007` <dbl>,
#> # `2008` <dbl>, `2009` <dbl>, `2010` <dbl>, `2011` <dbl>, `2012` <dbl>,
#> # `2013` <dbl>, `2014` <dbl>, `2015` <dbl>, `2016` <dbl>, `2017` <dbl>
เจธเจพเจกเจพ เจเฉเจเจพ เจนเจฐเฉเจ เจตเฉเจฐเฉเจเจฌเจฒ เจฆเฉ เจจเจพเจฒ เจเจธเจฆเฉ เจเจชเจฃเฉ เจเจพเจฒเจฎ เจตเจฟเฉฑเจ เจเฉฑเจ เจธเจพเจซเจผ เจกเจพเจเจพ เจธเฉเฉฑเจ เจฌเจฃเจพเจเจฃเจพ เจนเฉเฅค เจเจน เจ เจธเจชเจธเจผเจ เจนเฉ เจเจฟ เจเจฟเจนเฉเฉ เจเจฆเจฎเจพเจ เจฆเฉ เจฒเฉเฉ เจนเฉ, เจชเจฐ เจ เจธเฉเจ เจธเจญ เจคเฉเจ เจธเจชเฉฑเจธเจผเจ เจธเจฎเฉฑเจธเจฟเจ เจจเจพเจฒ เจธเจผเฉเจฐเฉ เจเจฐเจพเจเจเฉ: เจธเจพเจฒ เจเจ เจเจพเจฒเจฎเจพเจ เจตเจฟเฉฑเจ เจซเฉเจฒเจฟเจ เจนเฉเจเจ เจนเฉเฅค
เจเจธ เจจเฉเฉฐ เจ เฉเจ เจเจฐเจจ เจฒเจ เจคเฉเจนเจพเจจเฉเฉฐ เจซเฉฐเจเจธเจผเจจ เจฆเฉ เจตเจฐเจคเฉเจ เจเจฐเจจ เจฆเฉ เจฒเฉเฉ เจนเฉ pivot_longer()
.
pop2 <- world_bank_pop %>%
pivot_longer(`2000`:`2017`, names_to = "year")
#> # A tibble: 19,008 x 4
#> country indicator year value
#> <chr> <chr> <chr> <dbl>
#> 1 ABW SP.URB.TOTL 2000 42444
#> 2 ABW SP.URB.TOTL 2001 43048
#> 3 ABW SP.URB.TOTL 2002 43670
#> 4 ABW SP.URB.TOTL 2003 44246
#> 5 ABW SP.URB.TOTL 2004 44669
#> 6 ABW SP.URB.TOTL 2005 44889
#> 7 ABW SP.URB.TOTL 2006 44881
#> 8 ABW SP.URB.TOTL 2007 44686
#> 9 ABW SP.URB.TOTL 2008 44375
#> 10 ABW SP.URB.TOTL 2009 44052
#> # โฆ with 18,998 more rows
เจ
เจเจฒเจพ เจเจฆเจฎ เจนเฉ เจเฉฐเจกเฉเจเฉเจเจฐ เจตเฉเจฐเฉเจเจฌเจฒ เจจเฉเฉฐ เจฆเฉเจเจฃเจพเฅค
pop2 %>% count(indicator)
#> # A tibble: 4 x 2
#> indicator n
#> <chr> <int>
#> 1 SP.POP.GROW 4752
#> 2 SP.POP.TOTL 4752
#> 3 SP.URB.GROW 4752
#> 4 SP.URB.TOTL 4752
เจเจฟเฉฑเจฅเฉ SP.POP.GROW เจเจฌเจพเจฆเฉ เจตเจพเจงเจพ เจนเฉ, SP.POP.TOTL เจเฉเฉฑเจฒ เจเจฌเจพเจฆเฉ เจนเฉ, เจ เจคเฉ SP.URBเฅค * เจเจนเฉ เจเฉเจเจผ, เจชเจฐ เจธเจฟเจฐเจซ เจธเจผเจนเจฟเจฐเฉ เจเฉเจคเจฐเจพเจ เจฒเจเฅค เจเจ เจเจนเจจเจพเจ เจฎเฉเฉฑเจฒเจพเจ เจจเฉเฉฐ เจฆเฉ เจตเฉเจฐเฉเจเจฌเจฒเจพเจ เจตเจฟเฉฑเจ เจตเฉฐเจกเฉเจ: เจเฉเจคเจฐ - เจเฉเจคเจฐ (เจเฉเฉฑเจฒ เจเจพเจ เจธเจผเจนเจฟเจฐเฉ) เจ เจคเฉ เจเฉฑเจ เจตเฉเจฐเฉเจเจฌเจฒ เจเจฟเจธ เจตเจฟเฉฑเจ เจ เจธเจฒ เจกเฉเจเจพ (เจเจจเจธเฉฐเจเจฟเจ เจเจพเจ เจตเจพเจงเจพ):
pop3 <- pop2 %>%
separate(indicator, c(NA, "area", "variable"))
#> # A tibble: 19,008 x 5
#> country area variable year value
#> <chr> <chr> <chr> <chr> <dbl>
#> 1 ABW URB TOTL 2000 42444
#> 2 ABW URB TOTL 2001 43048
#> 3 ABW URB TOTL 2002 43670
#> 4 ABW URB TOTL 2003 44246
#> 5 ABW URB TOTL 2004 44669
#> 6 ABW URB TOTL 2005 44889
#> 7 ABW URB TOTL 2006 44881
#> 8 ABW URB TOTL 2007 44686
#> 9 ABW URB TOTL 2008 44375
#> 10 ABW URB TOTL 2009 44052
#> # โฆ with 18,998 more rows
เจนเฉเจฃ เจธเจพเจจเฉเฉฐ เจฌเจธ เจตเฉเจฐเฉเจเจฌเจฒ เจจเฉเฉฐ เจฆเฉ เจเจพเจฒเจฎเจพเจ เจตเจฟเฉฑเจ เจตเฉฐเจกเจฃเจพ เจนเฉ:
pop3 %>%
pivot_wider(names_from = variable, values_from = value)
#> # A tibble: 9,504 x 5
#> country area year TOTL GROW
#> <chr> <chr> <chr> <dbl> <dbl>
#> 1 ABW URB 2000 42444 1.18
#> 2 ABW URB 2001 43048 1.41
#> 3 ABW URB 2002 43670 1.43
#> 4 ABW URB 2003 44246 1.31
#> 5 ABW URB 2004 44669 0.951
#> 6 ABW URB 2005 44889 0.491
#> 7 ABW URB 2006 44881 -0.0178
#> 8 ABW URB 2007 44686 -0.435
#> 9 ABW URB 2008 44375 -0.698
#> 10 ABW URB 2009 44052 -0.731
#> # โฆ with 9,494 more rows
เจธเฉฐเจชเจฐเจ เจธเฉเจเฉ
เจเฉฑเจ เจเจเจฐเฉ เจเจฆเจพเจนเจฐเจฃ, เจเจฒเจชเจจเจพ เจเจฐเฉ เจเจฟ เจคเฉเจนเจพเจกเฉ เจเฉเจฒ เจเฉฑเจ เจธเฉฐเจชเจฐเจ เจธเฉเจเฉ เจนเฉ เจเฉ เจคเฉเจธเฉเจ เจเฉฑเจ เจตเฉเจฌเจธเจพเจเจ เจคเฉเจ เจเจพเจชเฉ เจ เจคเฉ เจชเฉเจธเจ เจเฉเจคเฉ เจนเฉ:
contacts <- tribble(
~field, ~value,
"name", "Jiena McLellan",
"company", "Toyota",
"name", "John Smith",
"company", "google",
"email", "[email protected]",
"name", "Huxley Ratcliffe"
)
เจเจธ เจธเฉเจเฉ เจจเฉเฉฐ เจธเจพเจฐเจฃเฉ เจฌเจฃเจพเจเจฃเจพ เจเจพเจซเจผเฉ เจฎเฉเจธเจผเจเจฒ เจนเฉ เจเจฟเจเจเจเจฟ เจเฉฑเจฅเฉ เจเฉเจ เจตเฉเจฐเฉเจเจฌเจฒ เจจเจนเฉเจ เจนเฉ เจเฉ เจเจน เจชเจเจพเจฃเจฆเจพ เจนเฉ เจเจฟ เจเจฟเจนเฉเจพ เจกเฉเจเจพ เจเจฟเจธ เจธเฉฐเจชเจฐเจ เจจเจพเจฒ เจธเจฌเฉฐเจงเจค เจนเฉเฅค เจ เจธเฉเจ เจเจธ เจจเฉเฉฐ เจงเจฟเจเจจ เจตเจฟเฉฑเจ เจฐเฉฑเจ เจเฉ เจ เฉเจ เจเจฐ เจธเจเจฆเฉ เจนเจพเจ เจเจฟ เจนเจฐเฉเจ เจจเจตเฉเจ เจธเฉฐเจชเจฐเจ เจฆเจพ เจกเฉเจเจพ "เจจเจพเจฎ" เจจเจพเจฒ เจธเจผเฉเจฐเฉ เจนเฉเฉฐเจฆเจพ เจนเฉ, เจเจธเจฒเจ เจ เจธเฉเจ เจเฉฑเจ เจตเจฟเจฒเฉฑเจเจฃ เจชเจเจพเจฃเจเจฐเจคเจพ เจฌเจฃเจพ เจธเจเจฆเฉ เจนเจพเจ เจ เจคเฉ เจนเจฐ เจตเจพเจฐ เจเจฆเฉเจ เจซเฉเจฒเจก เจเจพเจฒเจฎ เจตเจฟเฉฑเจ "เจจเจพเจฎ" เจฎเฉเฉฑเจฒ เจธเจผเจพเจฎเจฒ เจนเฉเฉฐเจฆเจพ เจนเฉ เจคเจพเจ เจเจธเจจเฉเฉฐ เจเฉฑเจ เจเจฐเจเฉ เจตเจงเจพ เจธเจเจฆเฉ เจนเจพเจ:
contacts <- contacts %>%
mutate(
person_id = cumsum(field == "name")
)
contacts
#> # A tibble: 6 x 3
#> field value person_id
#> <chr> <chr> <int>
#> 1 name Jiena McLellan 1
#> 2 company Toyota 1
#> 3 name John Smith 2
#> 4 company google 2
#> 5 email [email protected] 2
#> 6 name Huxley Ratcliffe 3
เจนเฉเจฃ เจเจฆเฉเจ เจธเจพเจกเฉ เจเฉเจฒ เจนเจฐเฉเจ เจธเฉฐเจชเจฐเจ เจฒเจ เจเฉฑเจ เจตเจฟเจฒเฉฑเจเจฃ ID เจนเฉ, เจ เจธเฉเจ เจเฉเจคเจฐ เจ เจคเฉ เจฎเฉเฉฑเจฒ เจจเฉเฉฐ เจเจพเจฒเจฎเจพเจ เจตเจฟเฉฑเจ เจฌเจฆเจฒ เจธเจเจฆเฉ เจนเจพเจ:
contacts %>%
pivot_wider(names_from = field, values_from = value)
#> # A tibble: 3 x 4
#> person_id name company email
#> <int> <chr> <chr> <chr>
#> 1 1 Jiena McLellan Toyota <NA>
#> 2 2 John Smith google [email protected]
#> 3 3 Huxley Ratcliffe <NA> <NA>
เจธเจฟเฉฑเจเจพ
เจฎเฉเจฐเฉ เจจเจฟเฉฑเจเฉ เจฐเจพเจ เจนเฉ เจเจฟ เจจเจตเฉเจ เจงเจพเจฐเจจเจพ เจธเฉเจฅเจฐเจพ เจ
เจธเจฒ เจตเจฟเฉฑเจ เจตเจงเฉเจฐเฉ เจ
เจจเฉเจญเจตเฉ, เจ
เจคเฉ เจตเจฟเจฐเจพเจธเจคเฉ เจซเฉฐเจเจธเจผเจจเจพเจ เจฆเฉ เจเจพเจฐเจเจเฉเจธเจผเจฒเจคเจพ เจตเจฟเฉฑเจ เจฎเจนเฉฑเจคเจตเจชเฉเจฐเจจ เจคเฉเจฐ 'เจคเฉ เจเฉฑเจคเจฎ spread()
ะธ gather()
. เจฎเฉเจจเฉเฉฐ เจเจฎเฉเจฆ เจนเฉ เจเจฟ เจเจธ เจฒเฉเจ เจจเฉ เจคเฉเจนเจพเจจเฉเฉฐ เจเจธ เจจเจพเจฒ เจจเจเจฟเฉฑเจ เจฃ เจตเจฟเฉฑเจ เจฎเจฆเจฆ เจเฉเจคเฉ เจนเฉ pivot_longer()
ะธ pivot_wider()
.
เจธเจฐเฉเจค: www.habr.com