r - 優文庫

r

1熱度

1回答

我有一個運行良好的函數，我想通過刪除其中一列並使用這些命令將另一列中的NA值轉換爲1來清理輸出： df$PlateIden <- NULL df$PlateNum[is.na(df$PlateNum)] <- 1 ，當我直接使用我的功能之外的數據幀，但是當我在函數中使用他們我的數據框變成要麼是「空」或「1」，如果任一功能的值。這些工作用過的。這裏是我的全部功能： cleanup_

1熱度

1回答

在熊貓數據框中使用最近創建的屬性來創建新屬性

我正在尋找相當於R的mutate，它允許您在創建它們之後立即引用已定義的變量在相同的mutate調用內。 new_df <- old_df %>% mutate(new_col = ifelse(something, 0, 1), newer_col = ifelse(new_col == 0, 'yay', 'nay')) 在python熊貓中尋找等價物。如果我創建

-1熱度

1回答

R：PCA ggplot錯誤「的參數意味着不同的行數」

我有一個數據集： https://docs.google.com/spreadsheets/d/1ZgyRQ2uTw-MjjkJgWCIiZ1vpnxKmF3o15a5awndttgo/edit?usp=sharing ，我試圖運用主成分分析和基於在這個崗位提供圖形來實現圖形： https://stats.stackexchange.com/questions/61215/how-to-inter

1熱度

1回答

評價dplyr :: case_when（）

繼dplyr::case_when()文檔中給出的例子： x <- 1:50 case_when(x %% 35 == 0 ~ "fizz buzz", x %% 5 == 0 ~ "fizz", x %% 7 == 0 ~ "buzz", TRUE ~ as.character(x)) 我想到的是人數35會產生"buzz"但它產生"fizz buz

0熱度

2回答

使用readOGR讀取多個文件並輸出到R中的不同文件的循環

我在文件夾中有一堆.gpx文件，我試圖用readOGR讀取它們，併爲每個.gpx文件獲取內存中的一個文件。這是什麼不工作： myfiles <- list.files(".", pattern = "*.gpx") for (i in 1:length(myfiles)) { temp.gpx <- readOGR(dsn = myfiles[i], layer="tracks")

0熱度

1回答

如何使用自定義函數更改geom_text中的文本標籤

我有一些數據，我想使用stat_count()中的一些變量來標記條形圖。這就是我想做的事： library(ggplot2) library(scales) percent_and_count <- function(pct, cnt){ paste0(percent(pct), ' (', cnt, ')') } ggplot(aes(x=Type)) + stat_co

1熱度

1回答

如何在警告消息中的元素之間添加分隔符？

這個問題最有可能已經回答了很多次，但我似乎沒有找到答案，即使經過大力的搜索... 我想創建一個警告消息使用字符向量。向量中的元素應該用「，」分開，不應重複。像這樣：警告消息：條目這，這也是，也應該檢查。功能warning將消息傳遞到cat功能，這使得我很難明白，我應該如何使用cat內warning： entries2check <-c("This", "that", "this too", "

2熱度

1回答

如何將grobs存儲在列表中並將它們傳遞給grobTree（）？

因此，我試圖製作一個grobs列表，然後將它們傳遞到grobTree()，但我的列表項目不會作爲grob通過do.call()讀入。這裏是我的代碼： library(purrr) library(grid) library(gridExtra) library(ggplot2) qplot(displ, year, data = mpg) title_segments <- c('H

1熱度

2回答

如何跨越製表（XTABS）多瓦爾，但相同的擊穿

我有一個數據幀尋找這樣的： SubjectID Activity V1 V2 V3 1 2 S 0.2571778 -0.02328523 -0.01465376 2 2 W 0.2860267 -0.01316336 -0.11908252 3 3 R 0.2754848 -0.02605042 -0.11815167 4 3 W 0.2702982 -

0熱度

1回答

R中

我試圖計算一個估計的MISE整合之和，我需要做的積分： (fp(x) - f(x))^2 where f(x) is exp(-x) and fp(x) is : sum_{i}^n { (1/n)*((K((x - X[i])/h))/h) } 這裏的問題是，X是一個矩陣，我不不知道如何整合這筆錢。我試過這個： Kgauss <- function(u) dnorm(u) #Gaussia