คำถามติดแท็ก plyr

6
การใช้ฟังก์ชันกับทุกแถวของตารางโดยใช้ dplyr?
เมื่อทำงานกับplyrฉันมักจะพบว่าการใช้adplyฟังก์ชันสเกลาร์มีประโยชน์ที่ฉันต้องใช้กับแต่ละแถว เช่น data(iris) library(plyr) head( adply(iris, 1, transform , Max.Len= max(Sepal.Length,Petal.Length)) ) Sepal.Length Sepal.Width Petal.Length Petal.Width Species Max.Len 1 5.1 3.5 1.4 0.2 setosa 5.1 2 4.9 3.0 1.4 0.2 setosa 4.9 3 4.7 3.2 1.3 0.2 setosa 4.7 4 4.6 3.1 1.5 0.2 setosa 4.6 5 5.0 3.6 1.4 …
121 r  plyr  dplyr 

4
สรุป dplyr: เทียบเท่ากับ“ .drop = FALSE” เพื่อให้กลุ่มที่มีความยาวเป็นศูนย์ในเอาต์พุต
เมื่อใช้summariseกับplyrของddplyฟังก์ชั่นประเภทที่ว่างเปล่าจะลดลงโดยปริยาย .drop = FALSEคุณสามารถเปลี่ยนพฤติกรรมนี้โดยการเพิ่ม อย่างไรก็ตามสิ่งนี้ใช้ไม่ได้เมื่อใช้summariseกับdplyrไฟล์. มีวิธีอื่นในการเก็บหมวดหมู่ว่างไว้ในผลลัพธ์หรือไม่? นี่คือตัวอย่างข้อมูลปลอม library(dplyr) df = data.frame(a=rep(1:3,4), b=rep(1:2,6)) # Now add an extra level to df$b that has no corresponding value in df$a df$b = factor(df$b, levels=1:3) # Summarise with plyr, keeping categories with a count of zero plyr::ddply(df, "b", summarise, count_a=length(a), .drop=FALSE) b count_a 1 …
101 r  dplyr  plyr  tidyr 

6
dplyr:“ ข้อผิดพลาดใน n (): ไม่ควรเรียกใช้โดยตรง”
ฉันกำลังพยายามทำซ้ำตัวอย่างหนึ่งในแพ็คเกจ dplyr แต่ได้รับข้อความแสดงข้อผิดพลาดนี้ ฉันคาดหวังว่าจะเห็นคอลัมน์ n ใหม่ที่สร้างขึ้นพร้อมความถี่ของการรวมกันแต่ละชุด ฉันขาดอะไรไป? ฉันตรวจสอบสามครั้งว่าโหลดแพคเกจแล้ว library(dplyr) # summarise peels off a single layer of grouping by_vs_am <- group_by(mtcars, vs, am) by_vs <- summarise(by_vs_am, n = n()) ข้อผิดพลาดใน n (): ไม่ควรเรียกใช้ฟังก์ชันนี้โดยตรง

2
ฉันจะบันทึกไฟล์แบบขนานโดยไม่เพิ่มขนาดไฟล์โดยอัตโนมัติได้อย่างไร
ฉันมี 2 สคริปต์ที่ทำสิ่งเดียวกัน แต่หนึ่งสคริปต์กำลังสร้างไฟล์ RData 3 ไฟล์ที่มีน้ำหนัก 82.7 KB และอีกสคริปต์หนึ่งสร้างไฟล์ RData 3 ไฟล์ที่มีน้ำหนัก 120 KB คนแรกไม่มีขนาน: library("plyr") ddply(.data = iris, .variables = "Species", ##.parallel=TRUE,##Without parallel .fun = function(SpeciesData){ #Create Simple Model ------------------------------------------------------------- Model <- lm(formula = "Sepal.Length~Sepal.Width+Petal.Length+Petal.Width",data = SpeciesData) #Save The Model ------------------------------------------------------------- save(Model, compress = FALSE, file = gsub(x …
9 r  plyr 
โดยการใช้ไซต์ของเรา หมายความว่าคุณได้อ่านและทำความเข้าใจนโยบายคุกกี้และนโยบายความเป็นส่วนตัวของเราแล้ว
Licensed under cc by-sa 3.0 with attribution required.