Hier ist ein Vektor a = c(T,F,F,NA,F,T,NA,F,T) Ich möchte eine einfache function, die jedes Mal TRUE zurückgibt, wenn ein TRUE in a und False ist, immer wenn ein false oder eine NA in a . Die 3 folgenden Dinge funktionieren nicht a == T identical(T,a) isTRUE(a) Hier ist eine Lösung a[-which(is.na(a))] aber es scheint keine […]
Ich habe Dateinamen mit dem Namen ..csv und ich würde gerne Diagramme für jeden Test ..csv . Der beste Weg, den ich sehen kann, ist, eine R-Tabelle für jeden Testnamen zu erstellen. Bei jedem Test werden die gleichen Datenspalten erzeugt. Daher möchte ich alle Daten für jeden Test in eine R-Datentabelle mit einer zusätzlichen Spalte […]
Was fehlt mir hier? d = data.table(a = 1:5) d[, a] # 1 2 3 4 5 d[, sum(a)] # 15 d[, eval(quote(a))] # 1 2 3 4 5 d[, sum(eval(quote(a)))] # 15 quoted_a = quote(a) d[, eval(quoted_a)] # 1 2 3 4 5 d[, sum(eval(quoted_a))] # Error in eval(expr, envir, enclos) : object ‘a’ […]
Ich habe eine Berechnung und erhalte die folgende Warnung (dh kein Fehler): Warning messages: 1: In sum(myvar, na.rm = T) : Integer overflow – use sum(as.numeric(.)) In diesem Thread geben Leute an, dass ganzzahlige Überläufe einfach nicht passieren. Entweder ist R nicht übermäßig modern oder sie sind nicht richtig. Was soll ich aber hier machen? […]
Ich habe einen R-Datenrahmen (df), den ich als Balkendiagramm in ggplot2 zeichne, und färbe basierend auf einer Spalte im Dataframe ( df$type ). Im Moment verwende ich das Standard-Farbmuster (scale_fill_brewer), um colors zuzuweisen. Wie kann ich die Farbe schwarz einem Wert zuweisen, ( df$type == -1 ) und scale_fill_brewer verwenden, um den Rest der colors […]
Wenn R in rApache ausgeführt wird, wird das Gebietsschema vom Apache-Webserver geerbt und daher ist Sys.getlocale() immer gleich “C” . Ich möchte, dass meine Webanwendung UTF8 , also verwende ich: Sys.setlocale(“LC_ALL”, ‘en_US.UTF-8’) Dies funktioniert jedoch nicht auf Computern, auf denen dieses Gebietsschema nicht verfügbar ist: 1: Setting LC_CTYPE failed, using “C” 2: Setting LC_COLLATE failed, […]
Im folgenden Datenrahmen ist die Spalte ‘time’ ein character id<-c(1,2,3,4) time<-c("00:00:01","01:02:00","09:30:01","14:15:25") df<-data.frame(id,time) Ich frage mich, wie ich es in time umwandeln kann, damit ich arithmetische Berechnungen darauf durchführen kann.
Wie finde ich den euklidischen Abstand zweier Vektoren: x1 <- rnorm(30) x2 <- rnorm(30)
Ich habe einen Datenrahmen mit Spalten, die es mir erlauben würden, den Datenrahmen in eine gewünschte Form zu partitionieren, wenn er (zeilenweise) als eine Kette verkettet wird. > str(data) ‘data.frame’: 680420 obs. of 10 variables: $ A : chr “2011-01-26” “2011-01-26” “2011-02-09” “2011-02-09” … $ B : chr “2011-01-26” “2011-01-27” “2011-02-09” “2011-02-10” … $ C […]
Ich benutze den mtcars Datensatz. Ich möchte die Anzahl der Datensätze für eine bestimmte Kombination von Daten finden. Etwas, das der count(*) group by-Klausel in SQL sehr ähnlich ist. ddply() von plyr arbeitet für mich library(plyr) ddply(mtcars, .(cyl,gear),nrow) hat ausgegeben cyl gear V1 1 4 3 1 2 4 4 8 3 4 5 2 […]