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

ฉันมี data.table ที่ฉันต้องการดำเนินการเดียวกันกับบางคอลัมน์ ชื่อของคอลัมน์เหล่านี้กำหนดเป็นเวกเตอร์อักขระ ในตัวอย่างนี้ฉันต้องการคูณคอลัมน์เหล่านี้ทั้งหมดด้วย -1 ข้อมูลของเล่นบางส่วนและเวกเตอร์ที่ระบุคอลัมน์ที่เกี่ยวข้อง: library(data.table) dt <- data.table(a = 1:3, b = 1:3, d = 1:3) cols <- c("a", "b") ตอนนี้ฉันทำแบบนี้โดยวนซ้ำเวกเตอร์อักขระ: for (col in 1:length(cols)) { dt[ , eval(parse(text = paste0(cols[col], ":=-1*", cols[col])))] } มีวิธีดำเนินการโดยตรงโดยไม่ต้องใช้ for loop หรือไม่?

87 r  data.table 

มีวิธีง่ายๆในการรวบรวมRสคริปต์ของฉันเป็น.exeไฟล์แบบสแตนด์อโลนเช่นเดียวกับ matlab หรือไม่?

87 r 

จากดาต้าเฟรมเช่นนี้ test <- data.frame('id'= rep(1:5,2), 'string'= LETTERS[1:10]) test <- test[order(test$id), ] rownames(test) <- 1:10 > test id string 1 1 A 2 1 F 3 2 B 4 2 G 5 3 C 6 3 H 7 4 D 8 4 I 9 5 E 10 5 J ฉันต้องการสร้างใหม่โดยมีแถวแรกของแต่ละคู่ id …

87 r  dataframe  sqldf 

ฉันมีข้อมูลประเภทเดียวกัน 92 ชุด ฉันต้องการสร้างเมทริกซ์สหสัมพันธ์สำหรับสองชุดค่าผสมที่เป็นไปได้ เช่นฉันต้องการเมทริกซ์ 92 x92 องค์ประกอบดังกล่าว (ci, cj) ควรมีความสัมพันธ์ระหว่าง ci และ cj ฉันจะทำอย่างไร?

86 r  matrix  visualization  correlation 

ฉันใช้Graphแพคเกจใน R สำหรับการวิเคราะห์ maxclique จำนวน 5461 รายการ รายการผลลัพธ์สุดท้ายที่ฉันได้รับนั้นยาวมากดังนั้นฉันจึงได้รับคำเตือนต่อไปนี้: ถึงgetOption("max.print")- ละ 475569 แถว ใครช่วยกรุณาให้คำแนะนำเกี่ยวกับวิธีเพิ่มขีด จำกัด สำหรับmax.print.

86 r 

ฉันมีชุดข้อมูล 11 คอลัมน์ที่มีมากกว่า 1,000 แถวต่อแถว คอลัมน์ถูกระบุว่า V1, V2, V11 ฯลฯ ฉันแทนที่ชื่อด้วยสิ่งที่มีประโยชน์มากกว่าสำหรับฉันโดยใช้คำสั่ง "c" ฉันไม่ทราบว่าแถว 1 มีป้ายกำกับสำหรับแต่ละคอลัมน์ด้วยและข้อมูลจริงของฉันเริ่มต้นในแถวที่ 2 มีวิธีลบแถว 1 และลดหรือไม่?

86 r  dataset 

ฉันจะใช้strptimeหรือฟังก์ชั่นอื่น ๆ เพื่อแยกวิเคราะห์การประทับเวลาด้วยมิลลิวินาทีเป็น R ได้อย่างไร time[1] # [1] "2010-01-15 13:55:23.975" strptime(time[1], format="%Y-%m-%d %H:%M:%S.%f") # [1] NA strptime(time[1], format="%Y-%m-%d %H:%M:%S") # [1] "2010-01-15 13:55:23"`

86 r  datetime  time-series  strptime 

ฉันอยู่ระหว่างการลองใช้เวิร์กโฟลว์ที่ใช้ dplyr (แทนที่จะใช้ data.table ส่วนใหญ่ซึ่งฉันเคยชิน) และฉันเจอปัญหาที่ฉันไม่สามารถหาโซลูชัน dplyr ที่เทียบเท่าได้ . ฉันมักจะพบกับสถานการณ์ที่ฉันต้องอัปเดต / แทนที่หลายคอลัมน์ตามเงื่อนไขตามเงื่อนไขเดียว นี่คือตัวอย่างโค้ดพร้อมโซลูชัน data.table ของฉัน: library(data.table) # Create some sample data set.seed(1) dt <- data.table(site = sample(1:6, 50, replace=T), space = sample(1:4, 50, replace=T), measure = sample(c('cfl', 'led', 'linear', 'exit'), 50, replace=T), qty = round(runif(50) * 30), qty.exit = 0, …

86 r  data.table  dplyr 

ดูด้านล่างสำหรับ 50 ทวีตเกี่ยวกับ "apple" ฉันติดป้ายกำกับการจับคู่เชิงบวกเกี่ยวกับ Apple Inc. ไว้ด้วยมือโดยมีเครื่องหมาย 1 ด้านล่าง สองสามบรรทัดมีดังนี้ 1|“@chrisgilmer: Apple targets big business with new iOS 7 features http://bit.ly/15F9JeF ”. Finally.. A corp iTunes account! 0|“@Zach_Paull: When did green skittles change from lime to green apple? #notafan” @Skittles 1|@dtfcdvEric: @MaroneyFan11 apple inc is searching for people to …

85 java  python  r  machine-learning  classification 

ฉันพยายามหาวิธีใช้ downloadButton เพื่อบันทึกพล็อตด้วยเงา ตัวอย่างในแพ็คเกจแสดงให้เห็นถึง downloadButton / downloadHandler เพื่อบันทึกไฟล์. csv ฉันจะสร้างตัวอย่างที่ทำซ้ำได้ตามนั้น สำหรับ ui.R shinyUI(pageWithSidebar( headerPanel('Downloading Data'), sidebarPanel( selectInput("dataset", "Choose a dataset:", choices = c("rock", "pressure", "cars")), downloadButton('downloadData', 'Download Data'), downloadButton('downloadPlot', 'Download Plot') ), mainPanel( plotOutput('plot') ) )) สำหรับ server.R library(ggplot2) shinyServer(function(input, output) { datasetInput <- reactive({ switch(input$dataset, "rock" = rock, "pressure" …

85 r  ggplot2  shiny 

วิธีง่ายๆในการค้นหาว่าแต่ละคอลัมน์ใน data frame คืออะไร

85 r 

คำถาม R สองข้อ: อะไรคือความแตกต่างระหว่างประเภท (ส่งคืนโดยtypeof) และคลาส (ส่งคืนโดยclass) ของตัวแปร? ความแตกต่างคล้ายกับในภาษา C ++ หรือไม่? ประเภทและคลาสของตัวแปรที่เป็นไปได้คืออะไร?

85 class  r  types 

ฉันมักจะลงเอยในสถานการณ์ที่จำเป็นต้องตรวจสอบว่าความแตกต่างที่ได้รับนั้นสูงกว่าความแม่นยำของเครื่องหรือไม่ ดูเหมือนว่าเพื่อวัตถุประสงค์นี้ R .Machine$double.epsมีตัวแปรที่มีประโยชน์: อย่างไรก็ตามเมื่อฉันหันไปใช้ซอร์สโค้ด R เพื่อหาแนวทางเกี่ยวกับการใช้ค่านี้ฉันจะเห็นรูปแบบที่แตกต่างกันหลายแบบ ตัวอย่าง นี่คือตัวอย่างจากstatsห้องสมุด: t.test.R if(stderr < 10 *.Machine$double.eps * abs(mx)) chisq.test.R if(abs(sum(p)-1) > sqrt(.Machine$double.eps)) integrate.R rel.tol < max(50*.Machine$double.eps, 0.5e-28) lm.influence.R e[abs(e) < 100 * .Machine$double.eps * median(abs(e))] <- 0 princomp.R if (any(ev[neg] < - 9 * .Machine$double.eps * ev[1L])) เป็นต้น คำถาม วิธีการหนึ่งที่สามารถเข้าใจเหตุผลที่อยู่เบื้องหลังเหล่านั้นแตกต่างกันทั้งหมด10 *, 100 …

36 r  floating-point  rounding  precision 

ฉันต้องการเขียนโค้ดเพื่อนับและรวมจำนวนชุดบวกและลบใด ๆ ตัวเลขมีทั้งบวกหรือลบ (ไม่เป็นศูนย์) ฉันได้เขียนรหัสด้วยforลูป มีทางเลือกสร้างสรรค์หรือไม่? ข้อมูล R set.seed(100) x <- round(rnorm(20, sd = 0.02), 3) หลาม x = [-0.01, 0.003, -0.002, 0.018, 0.002, 0.006, -0.012, 0.014, -0.017, -0.007, 0.002, 0.002, -0.004, 0.015, 0.002, -0.001, -0.008, 0.01, -0.018, 0.046] ลูป R sign_indicator <- ifelse(x > 0, 1,-1) number_of_sequence <- rep(NA, …

31 python  r 

ฉันมีกรอบข้อมูลต่อไปนี้: library(dplyr) library(tibble) df <- tibble( source = c("a", "b", "c", "d", "e"), score = c(10, 5, NA, 3, NA ) ) df ดูเหมือนว่านี้: # A tibble: 5 x 2 source score <chr> <dbl> 1 a 10 . # current max value 2 b 5 3 c NA 4 d …

18 r  dplyr  tibble