Bitte beachten Sie das folgende reproduzierbare Beispiel: library(data.table) set.seed(123) DT <- data.table(A=rep(0.3,10000)) DT[, B := runif(.N) < A] DT[B == T, .N] # [1] 3005 DT[, summary(B)] # Mode FALSE TRUE NA's # logical 6995 3005 0 Alles sieht gut aus und die Anzahl der “TRUE” -Werte ist für die beiden Methoden gleich. Ersetzen Sie […]
Wie kann ich mit ggplot2 eine Trendlinie zeichnen, die zwischen Facetten verläuft? library(ggplot2) df <- data.frame(y=c(1,2,3),x=1,Set=LETTERS[1:3]) ggplot(df,aes(x,y)) + theme_bw() + theme(legend.position=c(0,1),legend.justification=c(0,1)) + geom_point(aes(fill=Set),color="black",shape=21,size=3) + facet_grid(~Set) + xlim(1,5) Was folgendes bewirkt: Im obigen möchte ich eine Linie zwischen den drei Punkten ziehen, die sich über Facetten bewegen.
Ich möchte die effizienteste (schnellste) Methode finden, um die Abstände zwischen Paaren von Längenkoordinaten zu berechnen. Eine nicht so effiziente Lösung wurde (hier) mit sapply und spDistsN1{sp} . Ich glaube, das könnte viel schneller gemacht werden, wenn man spDistsN1{sp} in data.table mit dem Operator := , aber das war nicht möglich. Irgendwelche Vorschläge? Hier ist […]
Ich möchte herausfinden, wie viel RAM von jedem meiner Objekte in meinem aktuellen Arbeitsbereich verwendet wird. Gibt es einen einfachen Weg, dies zu tun?
Ich habe eine Zeichenfolge wie: “aabbccccdd” Ich möchte diese Zeichenfolge in einen Vektor von Teilzeichenfolgen der Länge 2 aufteilen: “aa” “bb” “cc” “cc” “dd”
Ich benutze R Version 2.15.3 (2013-03-01) auf Ubuntu 12.10. Das System ist in Deutsch und R auch. Dies ist unpraktisch bei der Suche nach Fehlermeldungen. Wird R in xterm auf diese Weise $ LANG=”C” R triggers $ LANG=”C” R das Problem teilweise. Dann zeigt R alles auf Englisch an. Aber wenn RStudio auf diese Weise […]
Ich versuche, die Logik von J () zu verstehen, wenn es doppelte Schlüssel in einer data.table in R gibt. Hier ist ein kleines Experiment, das ich versucht habe: library(data.table) options(stringsAsFactors = FALSE) x <- data.table(keyVar = c("a", "b", "c", "c"), value = c( 1, 2, 3, 4)) setkey(x, keyVar) y1 <- data.frame(name = c("d", "c", […]
Angenommen, ich habe zwei data.tables : EIN: AB 1: 1 12 2: 2 13 3: 3 14 4: 4 15 B: AB 1: 2 13 2: 3 14 und ich habe den folgenden Code: merge_test = merge(dataA, dataB, by=”A”, all.data=TRUE) Ich bekomme: A Bx By 1: 2 13 13 2: 3 14 14 Ich möchte […]
Ich bin ziemlich neu in R und ich machte einen Typ-O, während ich etwas Code eingab und jetzt anstelle der “>” – Eingabeaufforderung eine “+” – Eingabeaufforderung erhielt. Ich scheine in einer Art von function stecken zu bleiben, die auf der Suche nach Input ist, aber ich kann mich scheinbar nicht davon befreien. Ich denke, […]
Ich verwende das Gitter lpackage, um meine Graphen zu platzieren, die ich mit ggplot2 erstellt habe : library(ggplot2) library(grid) Layout <- grid.layout(nrow = 4, ncol = 4, widths = unit(1, "null"), heights = unit(c(0.4, 0.8, 1.2, 1.2), c("null", "null", "null"))) grid.show.layout(Layout) plot1 = ggplot(diamonds, aes(clarity, fill = color)) + geom_bar() + facet_wrap(~cut, nrow = 1) […]