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

นี่คือรหัส R ของฉัน ฟังก์ชั่นถูกกำหนดเป็น: f <- function(x, T) { 10 * sin(0.3 * x) * sin(1.3 * x ^ 2) + 0.001 * x ^ 3 + 0.2 * x + 80 } g <- function(x, T, f=f) { exp(-f(x) / T) } test <- function(g=g, T=1) { g(1, T) …

143 r 

ฉันมีคำถามเกี่ยวกับตำนานใน ggplot2 ฉันจัดการเพื่อพล็อตสามบรรทัดในกราฟเดียวกันและต้องการเพิ่มคำอธิบายแผนภูมิด้วยสามสีที่ใช้ นี่คือรหัสที่ใช้ library(ggplot2) require(RCurl) link<-getURL("https://dl.dropbox.com/s/ds5zp9jonznpuwb/dat.txt") datos<- read.csv(textConnection(link),header=TRUE,sep=";") datos$fecha <- as.POSIXct(datos[,1], format="%d/%m/%Y") temp = ggplot(data=datos,aes(x=fecha, y=TempMax,colour="1")) + geom_line(colour="red") + opts(title="TITULO") + ylab("Temperatura (C)") + xlab(" ") + scale_y_continuous(limits = c(-10,40)) + geom_line(aes(x=fecha, y=TempMedia,colour="2"),colour="green") + geom_line(aes(x=fecha, y=TempMin,colour="2"),colour="blue") + scale_colour_manual(values=c("red","green","blue")) temp และเอาท์พุท ฉันต้องการเพิ่มคำอธิบายภาพโดยใช้สามสีและชื่อของตัวแปร (TempMax, TempMedia และ TempMin) ฉันเหนื่อย scale_colour_manual แต่ไม่สามารถหาวิธีที่แน่นอน น่าเสียดายที่ข้อมูลดั้งเดิมถูกลบออกจากไซต์ที่เชื่อมโยงและไม่สามารถกู้คืนได้ …

143 r  ggplot2  legend  r-faq 

ฉันต้องการนับจำนวนNAค่าในคอลัมน์ data frame กล่าวว่ากรอบข้อมูลของฉันเรียกว่าและชื่อของคอลัมน์ฉันกำลังพิจารณาคือdf colวิธีที่ฉันคิดขึ้นมีดังต่อไปนี้: sapply(df$col, function(x) sum(length(which(is.na(x))))) นี่เป็นวิธีที่ดี / มีประสิทธิภาพมากที่สุดในการทำเช่นนี้?

143 r  dataframe 

สมมติว่าฉันมีรายการสตริง: string = c("G1:E001", "G2:E002", "G3:E003") ตอนนี้ผมหวังว่าจะได้เวกเตอร์ของสตริงที่มีเพียงชิ้นส่วนหลังจากลำไส้ใหญ่ ":" substring = c(E001,E002,E003)คือ มีวิธีที่สะดวกใน R ในการดำเนินการนี้หรือไม่? ใช้substr?

143 regex  r  substr 

ฉันต้องการหยุดสคริปต์ R ของฉันชั่วคราวจนกว่าผู้ใช้จะกดปุ่ม ฉันต้องทำอย่างไร

142 r  keypress  wait  readline  readkey 

ใน data.frame (หรือ data.table) ฉันต้องการ "กรอกข้อมูล" NAs ด้วยค่าที่ไม่ใช่ NA ก่อนหน้านี้ที่ใกล้เคียงที่สุด ตัวอย่างง่ายๆการใช้เวกเตอร์ (แทน a data.frame) มีดังต่อไปนี้: > y <- c(NA, 2, 2, NA, NA, 3, NA, 4, NA, NA) ฉันต้องการฟังก์ชั่นfill.NAs()ที่ช่วยให้ฉันสร้างyyสิ่งนั้นได้: > yy [1] NA NA NA 2 2 2 2 3 3 3 4 4 ฉันจำเป็นต้องทำซ้ำการดำเนินการนี้สำหรับหลายคน (รวม ~ 1 Tb) data.frames …

141 r  data.table  zoo  r-faq 

ฉันพยายามที่จะพล็อตหลายแปลงโดยใช้การจัดพวกเขาโดยใช้ggplot2 grid.arrange()เนื่องจากฉันสามารถหาคนที่อธิบายปัญหาที่แท้จริงได้ฉันจึงอ้างจากคำอธิบายปัญหาจากลิงค์ : เมื่อฉันใช้ggsave()หลังจากgrid.arrange()นั้นคือ grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2) ggsave("sgcirNIR.jpg") ฉันไม่ได้บันทึกพล็อตกริด แต่เป็น ggplot แต่ละรายการสุดท้าย มีวิธีใดในการบันทึกพล็อตตามที่แสดงโดยgrid.arrange()ใช้ ggsave()หรือสิ่งที่คล้ายกันหรือไม่? นอกเหนือจากการใช้วิธีที่เก่ากว่า jpeg("sgcirNIR.jpg") grid.arrange(sgcir1,sgcir2,sgcir3,ncol=2,nrow=2) dev.off() ลิงค์เดียวกันให้คำตอบด้านล่าง: require(grid) require(gridExtra) p <- arrangeGrob(qplot(1,1), textGrob("test")) grid.draw(p) # interactive device ggsave("saving.pdf", p) # need to specify what to save explicitly อย่างไรก็ตามฉันไม่สามารถหาวิธีใช้ggsave()เพื่อบันทึกผลลัพธ์ของการgrid.arrange()โทรในรหัสต่อไปนี้ซึ่งนำมาจากลิงค์ : library(ggplot2) library(gridExtra) dsamp <- diamonds[sample(nrow(diamonds), 1000), ] p1 <- qplot(carat, price, …

141 r  ggplot2  gridextra 

ฉันกำลังหาบทเรียนบางอย่างใน R รหัส R แต่ละตัวจะอยู่ในโฟลเดอร์เฉพาะ มีไฟล์ข้อมูลและไฟล์อื่น ๆ อยู่ในนั้น ฉันต้องการเปิด.rไฟล์และซอร์สไฟล์โดยที่ฉันไม่ต้องเปลี่ยนไดเร็กทอรีการทำงานใน Rstudio ดังที่แสดงด้านล่าง: มีวิธีระบุไดเร็กทอรีการทำงานของฉันโดยอัตโนมัติใน R หรือไม่

141 r  automation  working-directory 

ฉันเพิ่งอ่านจบเกี่ยวกับการกำหนดขอบเขตในบทนำ Rและฉันอยากรู้เกี่ยวกับการ<<-มอบหมาย คู่มือแสดงตัวอย่างหนึ่ง (น่าสนใจมาก) สำหรับ<<-ซึ่งฉันรู้สึกว่าฉันเข้าใจ สิ่งที่ฉันยังขาดอยู่คือบริบทของเมื่อสิ่งนี้มีประโยชน์ ดังนั้นสิ่งที่ฉันชอบที่จะอ่านจากคุณคือตัวอย่าง (หรือลิงก์ไปยังตัวอย่าง) เมื่อการใช้งาน<<-นั้นน่าสนใจ / มีประโยชน์ สิ่งที่อาจเป็นอันตรายจากการใช้มัน (ดูง่ายต่อการติดตามหลวม) และเคล็ดลับใด ๆ ที่คุณอาจรู้สึกอยากแบ่งปัน

140 r  scoping  lexical-scope  r-faq 

วิธีหนึ่ง "โยน" ข้อผิดพลาดใน R อย่างไร ฉันมีฟังก์ชั่นที่ใช้กรอบข้อมูลและชื่อคอลัมน์บางส่วนและทำสิ่งต่าง ๆ กับพวกเขา หากไม่มีคอลัมน์ฉันต้องการให้ฟังก์ชันหยุดและหยุดฟังก์ชั่นทั้งหมดโดยขึ้นอยู่กับมัน ฉันได้ดูrecoverและbrowseและtracebackแต่ดีที่พวกเขาดูเหมือนจะใกล้ แต่ไม่ใช่สิ่งที่ฉันกำลังมองหา

140 r  error-handling 

สมมติว่าฉันมี: v = rep(c(1,2, 2, 2), 25) ตอนนี้ฉันต้องการนับจำนวนครั้งที่แต่ละค่าไม่ซ้ำกันปรากฏขึ้น unique(v) ส่งคืนค่าที่ไม่ซ้ำกัน แต่ไม่ได้เป็นจำนวน > unique(v) [1] 1 2 ฉันต้องการบางสิ่งที่ให้ฉัน length(v[v==1]) [1] 25 length(v[v==2]) [1] 75 แต่ในฐานะที่เป็นหนึ่งซับทั่วไป :) สิ่งที่ใกล้เคียง (แต่ไม่มาก) เช่นนี้: #<doesn't work right> length(v[v==unique(v)])

140 r  count  unique 

คำถาม การใช้dplyrวิธีการที่ฉันจะเลือกด้านบนและด้านล่างสังเกต / แถวของข้อมูลในงบจัดกลุ่มหนึ่ง? ข้อมูลและตัวอย่าง กำหนดกรอบข้อมูล df <- data.frame(id=c(1,1,1,2,2,2,3,3,3), stopId=c("a","b","c","a","b","c","a","b","c"), stopSequence=c(1,2,3,3,1,4,3,1,2)) ฉันสามารถรับการสังเกตด้านบนและด้านล่างจากแต่ละกลุ่มโดยใช้sliceแต่ใช้สถิติแยกกันสองแบบ: firstStop <- df %>% group_by(id) %>% arrange(stopSequence) %>% slice(1) %>% ungroup lastStop <- df %>% group_by(id) %>% arrange(stopSequence) %>% slice(n()) %>% ungroup ฉันสามารถรวมสถิติทั้งสองนี้เป็นหนึ่งเดียวเพื่อเลือกการสังเกตทั้งด้านบนและด้านล่างได้หรือไม่?

140 r  dplyr 

ฉันต้องการใช้ hexbin ของ bioconductor (ซึ่งฉันสามารถทำได้) เพื่อสร้างพล็อตที่เติมพื้นที่แสดงผลทั้งหมด (png) - ไม่มีแกน, ไม่มีป้าย, ไม่มีพื้นหลัง, ไม่มีนูติน '

139 r  ggplot2 

ฉันจะตั้งค่าต้นกำเนิด / การสกัดกั้นของแกน y และแกน x ใน ggplot2 ได้อย่างไร แนวแกน x y=Zควรจะตรงที่ ด้วยZ=0หรือค่าที่กำหนดอื่น

139 r  plot  ggplot2  axes 

ฉันต้องการแบ่งบรรทัดในสคริปต์ R เป็นหลายบรรทัด (เพราะยาวเกินไป) ฉันจะทำอย่างไร โดยเฉพาะฉันมีบรรทัดเช่น setwd('~/a/very/long/path/here/that/goes/beyond/80/characters/and/then/some/more') เป็นไปได้ไหมที่จะแยกเส้นทางยาวในหลายบรรทัด? ฉันเหนื่อย setwd('~/a/very/long/path/here/that/goes/beyond/80/characters/and/ then/some/more') ด้วยreturnคีย์ที่ท้ายบรรทัดแรก แต่ไม่ได้ผล ขอบคุณ.

139 r  multiline