2013-03-04 3 views
6

Heute habe ich festgestellt, dass die silhouette Handlung in der cluster Paket nicht ordnungsgemäß in RStudio angezeigt wird. Eine Google-Suche ergab, dass jemand anderes ein Problem damit gehabt hatte: RR: RStudio: Wie funktioniert Silhouette plot?

http://support.rstudio.org/help/discussions/problems/3094-plotsnot-showing-up-in-r-studio

neu zu sein, es war mir unklar, ob das Problem in diesem Thread gelöst worden war! Meine Frage ist also: Gibt es eine Möglichkeit, das silhouette Grundstück in RStudio richtig anzuzeigen?

Danke für jede Hilfe.

Beispielscript:

library(cluster) 
data(xclara) 
km <- kmeans(xclara,3) 
dissE <- daisy(xclara) 
sk <- silhouette(km$cl, dissE) 
plot(sk) 

Antwort

9

Scheint, wie der Faden Sie Referenz war ziemlich eindeutig: die silhouette Paket einen Fehler WRT png Ausgang haben kann, und RStudio nicht schön spielen mit einigen anderen Grafikformate. Sie müssen also, wie Josh schrieb, "die pdf(), quarz() und windows() Geräte ..." angeben, wenn Sie RStudio verwenden.

Edit: Also, was Sie tun müssen, ist

pdf('my_nice_plot.pdf') 
plot(sk) 
dev.off() 

Welches ist Ihr Grundstück direkt in die Datei schreibt. Sie könnten versuchen, die erste Zeile durch png('my_nice_plot.png') usw. zu ersetzen, da diese ebenfalls funktionieren sollten. Aber ich bezweifle, dass Sie eine saubere Handlung in RStudios Grafikfenster bekommen, bis sie ihre Schnittstelle aktualisieren.

+0

Dank. Wie in der Anfangsfrage erwähnt, konnte ich, da ich neu bei "R" (oder nicht sehr clever) bin, nicht herausfinden, ob der Thread mit einer Lösung abgeschlossen wurde. Wenn es Code gibt, den ich dem Beispielskript hinzufügen kann (siehe oben), würden Sie mir so freundlich sein, mir zu sagen, was es ist? Prost. – user32259

+0

Ok. Danke für Ihre Hilfe. – user32259

+0

Wie benutze ich es glänzend? Ich bekomme einen leeren Plot, wenn ich ihn mit glänzendem – vipin8169

1

Dies kann nur eine Frage der Sichtbarkeit der tatsächlichen Handlung sein: versuchen

library(cluster) 
data(xclara) 
km <- kmeans(xclara[1:100,],3) 
dissE <- daisy(xclara[1:100,]) 
sk <- silhouette(km$cl, dissE) 
plot(sk)