Articles of r

Plot-Biblot mit ggplot2

Ich frage mich, ob es möglich ist, pca-Biplot-Ergebnisse mit ggplot2 zu plotten. Angenommen, ich möchte die folgenden Biplitergebnisse mit ggplot2 anzeigen fit <- princomp(USArrests, cor=TRUE) summary(fit) biplot(fit) Jede Hilfe wird sehr geschätzt. Vielen Dank

Rotierende x-Achsenbeschriftungen in R für Barplot

Ich versuche, die x-Achsenbeschriftungen auf einem Barplot um 45 Grad gedreht zu bekommen, ohne Glück. Dies ist der Code, den ich unten habe: barplot(((data1[,1] – average)/average) * 100, srt = 45, adj = 1, xpd = TRUE, names.arg = data1[,2], col = c(“#3CA0D0”), main = “Best Lift Time to Vertical Drop Ratios of North American […]

Adaptiver gleitender Durchschnitt – Spitzenleistung in R

Ich suche nach einigen performancesgewinnen in Bezug auf Roll- / Gleitfensterfunktionen in R. Es ist eine ziemlich übliche Aufgabe, die in jedem bestellten Beobachtungsdatensatz verwendet werden kann. Ich würde gerne einige meiner Erkenntnisse teilen, vielleicht wäre jemand in der Lage, Feedback zu geben, um es noch schneller zu machen. Wichtiger Hinweis ist, dass ich mich […]

Zeilen aus Datenrahmen entfernen, in denen eine Zeile mit einer Zeichenfolge übereinstimmt

Ich entferne ich alle Zeilen in einem Datenframe, wo eine bestimmte Zeile ein Zeichenfolgenübereinstimmungskriterium erfüllt? Beispielsweise: A,B,C 4,3,Foo 2,3,Bar 7,5,Zap Wie würde ich einen Datenrahmen zurückgeben, der alle Zeilen mit C = Foo ausschließt: A,B,C 2,3,Bar 7,5,Zap

Venn-Diagramm proportional und Farbschattierung mit Semi-Transparenz

Ich habe folgende Art von Zähldaten. A 450 B 1800 A and B both 230 Ich möchte ein buntes (möglicherweise halbtransparentes an Kreuzungen) wie das folgende Venn-Diagramm entwickeln. Hinweis: Diese Abbildung ist eine Beispielhand, die in PowerPoint gezeichnet wurde und nicht skalierbar ist.

Hinzufügen von Tabelle innerhalb der Zeichnungsregion eines ggplot in r

Ich möchte eine Tabelle der Koordinaten der markierten Seite in einem ggplot hinzufügen. Verwenden einer vorherigen Frage als Beispieldaten: set.seed(1) mydata <- data.frame(a=1:50, b=rnorm(50)) ggplot(mydata,aes(x=a,y=b)) + geom_point(colour="blue") + geom_point(data=mydata[10:13, ], aes(x=a, y=b), colour="red", size=5) Ich möchte die folgende Tabelle in der unteren rechten Ecke des Diagramms innerhalb der Zeichenregion hinzufügen. Irgendein Rat? table<-cbind(sites=c("site 1","site 2","site […]

Einfügen einer Tabelle unter der Legende in einem Histogramm ggplot2

Gibt es trotzdem grid.arrange () um als split.screen () zu fungieren? Ich möchte einen Tisch direkt unter der Legende platzieren. #create histogram my_hist<-ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar() #create inset table my_table<- tableGrob(head(diamonds)[,1:3],gpar.coretext =gpar(fontsize=8),gpar.coltext=gpar(fontsize=8), gpar.rowtext=gpar(fontsize=8)) grid.arrange(my_hist,my_table, ncol=2) produziert: aber ich möchte, dass es ungefähr so ​​aussieht: Ich habe versucht, split.screen (), aber es scheint nicht mit […]

Vollständig reproduzierbare parallele Modelle mit Caret

Wenn ich 2 zufällige Gesamtstrukturen in Caret ausführen, bekomme ich genau die gleichen Ergebnisse, wenn ich einen zufälligen Startwert festlege: library(caret) library(doParallel) set.seed(42) myControl <- trainControl(method='cv', index=createFolds(iris$Species)) set.seed(42) model1 <- train(Species~., iris, method='rf', trControl=myControl) set.seed(42) model2 all.equal(predict(model1, type=’prob’), predict(model2, type=’prob’)) [1] TRUE Wenn ich jedoch ein paralleles Back-End registriere, um die Modellierung zu beschleunigen, erhalte […]

SQL Server RODBC-Verbindung

Hat jemand ein Beispiel für eine Verbindungszeichenfolge für die Verwendung von RODBC und die Verbindung mit MS SQL Server 2005 oder 2008? Vielen Dank.

Wie man Warnung vermeidet, wenn NA durch Zwang eingeführt werden

Im Allgemeinen bevorzuge ich es, R zu codieren, so dass ich keine Warnungen bekomme, aber ich weiß nicht, wie man vermeidet, eine Warnung zu erhalten, wenn man as.numeric , um einen as.numeric zu konvertieren. Beispielsweise: x <- as.numeric(c("1", "2", "X")) Wird mich warnen, weil es NA durch Zwang eingeführt hat. Ich möchte, dass NAs durch […]