Programowanie r

1

Jak mogę użyć polecenia `td` z pakietu` tempdisagg`, aby rozdzielić dane miesięczne na częstotliwość danych dziennych?

Mam miesięczne dane o częstotliwości, które staram się podzielić na dane o częstotliwości dziennej. Więc używam tdpolecenia z tempdisaggpakietu w R, używając poniższego kodu: dat=ts(data[,2]) result=td(dat~1, conversion = "average", to = "day", method = "chow-lin-maxlog") Następnie pojawia się następujący komunikat o błędzie: Error in td(dat ~ 1, conversion = "average", …

9 r statistics time-series syntax-error frequency

1

Próbka RcppArmadillo () jest niejednoznaczna po aktualizacji R.

Zwykle pracuję z krótką funkcją Rcpp, która przyjmuje jako dane wejściowe macierz, w której każdy wiersz zawiera prawdopodobieństwo K, które sumują się do 1. Funkcja następnie losowo sprawdza dla każdego wiersza liczbę całkowitą od 1 do K odpowiadającą podanym prawdopodobieństwom. To jest funkcja: // [[Rcpp::depends(RcppArmadillo)]] #include <RcppArmadilloExtensions/sample.h> using namespace Rcpp; …

9 r rcpp rcpparmadillo

1

Właściwy sposób na zwrócenie wskaźnika do obiektu `new` z funkcji Rcpp

Rozważ 1) klasę niestandardową z potencjalnie dużym drukiem pamięci oraz 2) funkcję najwyższego poziomu, która wykonuje wstępne przetwarzanie, a następnie tworzy i zwraca nowy obiekt naszej klasy niestandardowej. Aby uniknąć niepotrzebnego kopiowania według wartości, funkcja przydziela obiekt i zwraca do niego wskaźnik. Na podstawie poprzedniej dyskusji wydaje się, że właściwym …

9 c++ r rcpp

6

Dopasuj i usuń zduplikowane znaki: Zamień wiele (3+) nie następujących po sobie wystąpień

Szukam regexwzoru, który będzie pasował do trzeciego, czwartego, ... wystąpienia każdej postaci. Spójrz na wyjaśnienia poniżej: Na przykład mam następujący ciąg: 111aabbccxccybbzaa1 Chcę zastąpić wszystkie zduplikowane znaki po drugim wystąpieniu. Dane wyjściowe będą: 11-aabbccx--y--z--- Niektóre wzorce wyrażeń regularnych, które próbowałem do tej pory: Korzystając z następującego wyrażenia regularnego, mogę znaleźć …

9 python r regex string

4

Czy jest jakiś szybszy sposób sprawdzenia, czy listy na liście są równoważne?

Tutaj mam liczby całkowite 1:7dla czterech różnych partycji, tj. {1}, {2,3,4}, {5,6} i {7}, a te partycje są zapisane na liście, tj list(1,c(2,3,4),c(5,6),7). Traktuję partycje jak zestawy, tak że różne permutacje elementów w obrębie jednej partycji powinny być rozpoznawane jako ta sama. Na przykład list(1,c(2,3,4),c(5,6),7)i list(7,1,c(2,3,4),c(6,5))są równoważne. Zauważ, że nie …

9 r algorithm list performance

1

Szybsza alternatywa dla deparse ()

Utrzymuję pakiet, który polega na wielokrotnych połączeniach z deparse(control = c("keepNA", "keepInteger")). controljest zawsze taki sam, a wyrażenie jest różne. deparse()wydaje się, że spędza dużo czasu, wielokrotnie interpretując ten sam zestaw opcji .deparseOpts(). microbenchmark::microbenchmark( a = deparse(identity, control = c("keepNA", "keepInteger")), b = .deparseOpts(c("keepNA", "keepInteger")) ) # Unit: microseconds # …

9 r

3

Czego nie mogę zrobić z dtplyr, że mogę w data.table

Czy powinienem inwestować wysiłki w uczenie się na przekręcaniu danych w R, szczególnie pomiędzy dplyr, dtplyra data.table? Używam dplyrgłównie, ale gdy dane są za duże na to, skorzystam data.table, co jest rzadkim zjawiskiem. Teraz, gdy dtplyrwersja 1.0 jest dostępna jako interfejs data.table, na pierwszy rzut oka wydaje się, że nigdy …

9 r dplyr data.table dtplyr

5

Tworzenie nowej kolumny warunkowo na podstawie poprzednich n wierszy

Mam skonfigurowaną ramkę danych, jak poniżej: df <- data.frame("id" = c(111,111,111,222,222,222,222,333,333,333,333), "Location" = c("A","B","A","A","C","B","A","B","A","A","A"), "Encounter" = c(1,2,3,1,2,3,4,1,2,3,4)) id Location Encounter 1 111 A 1 2 111 B 2 3 111 A 3 4 222 A 1 5 222 C 2 6 222 B 3 7 222 A 4 8 333 …

9 r dataframe dplyr duplicates

2

R: Jak elegancko oddzielić logikę kodu od tagów UI / html?

Problem Podczas dynamicznego tworzenia UI-elementy ( shiny.tag, shiny.tag.list...), często trudno jest oddzielić ją od mojego logiki kodu i zwykle kończy się z pokrętny bałagan zagnieżdżone tags$div(...), zmieszanej z pętli i instrukcji warunkowych. Jest denerwujący i brzydki, ale także podatny na błędy, np. Podczas wprowadzania zmian w szablonach HTML. Powtarzalny przykład …

9 r shiny templating htmltools

1

Jak wstawiać zdjęcia do poszczególnych pasków na wykresie ggplot

Próbuję porównać różne nowości NBA w różnych statystykach i pomyślałem, że wykres wyglądałby świetnie, gdybym mógł dodać twarz gracza na końcu wykresu, jak na wykresach r / dataisbeautiful . Mój kod jest obecnie taki: a3 %>% ggplot(aes(x = reorder(Player, PPM), y = PPM)) + geom_bar(stat = "identity", aes(fill = Player)) …

9 r image ggplot2

3

Jak efektywnie sortować znaki w ciągu w R?

Jak mogę skutecznie sortować znaki każdego łańcucha w wektorze? Na przykład, biorąc pod uwagę wektor ciągów: set.seed(1) strings <- c(do.call(paste0, replicate(4, sample(LETTERS, 10000, TRUE), FALSE)), do.call(paste0, replicate(3, sample(LETTERS, 10000, TRUE), FALSE)), do.call(paste0, replicate(2, sample(LETTERS, 10000, TRUE), FALSE))) Napisałem funkcję, która podzieli każdy ciąg na wektor, posortuje wektor, a następnie zwinie …

9 r string performance sorting

4

Skuteczny sposób upuszczania wierszy z nakładającymi się czasami

Mam długi zestaw danych z kolumnami reprezentującymi czasy rozpoczęcia i zakończenia i chcę upuścić wiersz, jeśli pokrywa się on z innym i ma wyższy priorytet (np. 1 jest najwyższym priorytetem). Moje przykładowe dane to library(tidyverse) library(lubridate) times_df <- tibble(start = as_datetime(c("2019-10-05 14:05:25", "2019-10-05 17:30:20", "2019-10-05 17:37:00", "2019-10-06 04:43:55", "2019-10-06 04:53:45")), …

9 r dplyr

2

Dlaczego dwa odniesienia do tego samego wektora zwracają różne adresy pamięci dla każdego elementu wektora?

Uczę się języka R i obecnie czytam tę książkę . Aby upewnić się, że rozumiem tę koncepcję, przeprowadziłem następujący test, który okazał się dla mnie dość mylący i byłbym wdzięczny za wyjaśnienie. Oto test, który uruchomiłem bezpośrednio w powłoce R z terminala (nie używając RStudio lub Emacs ESS). > library(lobstr) …

9 r

2

Jak mogę zapisywać pliki równolegle bez automatycznego zwiększania rozmiaru pliku?

Mam 2 skrypty, które robią dokładnie to samo. Ale jeden skrypt tworzy 3 pliki RData o wadze 82,7 KB, a drugi skrypt tworzy 3 pliki RData o wadze 120 KB. pierwszy nie jest równoległy: library("plyr") ddply(.data = iris, .variables = "Species", ##.parallel=TRUE,##Without parallel .fun = function(SpeciesData){ #Create Simple Model ------------------------------------------------------------- …

9 r plyr

1

Upuszczenie zmiennej w formule lm nadal powoduje błąd kontrastu

Próbuję uruchomić lm () tylko na podzbiorze moich danych i napotkałem problem. dt = data.table(y = rnorm(100), x1 = rnorm(100), x2 = rnorm(100), x3 = as.factor(c(rep('men',50), rep('women',50)))) # sample data lm( y ~ ., dt) # Use all x: Works lm( y ~ ., dt[x3 == 'men']) # Use all …

9 r formula lm factors

Pytania otagowane jako r