[R] Changing the label name in the plot

Tue Jun 11 12:19:23 CEST 2019

Hi

Ts should be numeric matrix if I read the help page correctly. However I get different error message

> k2 <- kmeans(ts, centers = 2, nstart = 25)
Error in do_one(nmeth) : NA/NaN/Inf in foreign function call (arg 1)
In addition: Warning message:
In storage.mode(x) <- "double" : NAs introduced by coercion

So there must be another issue with your data.

Cheers
Petr

-----Original Message-----
From: R-help <r-help-bounces using r-project.org> On Behalf Of Subhamitra Patra
Sent: Tuesday, June 11, 2019 10:49 AM
To: Jim Lemon <drjimlemon using gmail.com>; r-help mailing list <r-help using r-project.org>
Subject: Re: [R] Changing the label name in the plot

Hello Sir,

Thank you very much for your help. I tried your suggestion but got some error, which I am pasting below.

Error: unexpected symbol in:
"
              header"
> library(cluster)
Warning message:
package ‘cluster’ was built under R version 3.5.3
> k2 <- kmeans(ts, centers = 2, nstart = 25)
Error in as.vector(x, mode) :
  cannot coerce type 'closure' to vector of type 'any'
>                plot(ts[c(2,4)],col=k2$cluster,type="n")
Error in ts[c(2, 4)] : object of type 'closure' is not subsettable
>                text(ts[c(2,4)],ts$Name.1,col=k2$cluster)
Error in ts[c(2, 4)] : object of type 'closure' is not subsettable

Please help me.

Thank you.

[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
06/11/19,
3:17:19 PM

On Tue, Jun 11, 2019 at 3:00 PM Jim Lemon <drjimlemon using gmail.com> wrote:

> Hi Subhamitra,
> I don't have the factoextra package, but this may give you what you want:
>
> ts<-read.table(text="Name DMs Name EMs A 2.071 a 2.038 B 2.0548 b
> 2.017 C 2.0544 c 2.007 D 2.047 d 1.963 E 2.033 f 1.947 F 2.0327 g
> 1.942 G 2.0321 h 1.932 H 2.031 i 1.924 I 2.0293 j 1.913 J 2.0291 k
> 1.906 K 2.027 l 1.892 L 2.022 m 1.877 M 1.9934 n 1.869 N 1.993 o 1.849
> O 1.989 p 1.848 P 1.988 q 1.836 Q 1.987 r 1.835 R 1.9849 s 1.819 S
> 1.9842 t 1.798 T 1.981 u 1.771 U 1.978 v 1.762 V 1.968 w 1.717 W 1.96
> x 1.707 X 1.958 y 1.688 Y 1.955 z 1.683 Z 1.953 aa 1.671 AA 1.952 ab
> 1.664 AB 1.95 ac 1.646 AC 1.948 ad 1.633 AD 1.945 ae 1.624 AE 1.937 af
> 1.621 AF 1.913 ag 1.584 AG 1.901 ah 1.487 AH 1.871 ai 1.482 AI 1.801
> aj 1.23 AJ 1.761 ak 1.129 AK 1.751 al 1.168 AL 1.699 am 0.941 AM 1.687
> an 0.591 AN 1.668 ao 0.387 AO 1.633 ap 0.16 AP 1.56 aq 0.0002",
> header=TRUE,stringsAsFactors=FALSE)
> library(cluster)
> k2 <- kmeans(ts, centers = 2, nstart = 25)
> plot(ts[c(2,4)],col=k2$cluster,type="n")
> text(ts[c(2,4)],ts$Name.1,col=k2$cluster)
>
> Jim
>
> On Tue, Jun 11, 2019 at 2:44 PM Subhamitra Patra
> <subhamitra.patra using gmail.com> wrote:
> >
> > Dear R-users,
> >
> > I am doing cluster analysis, but when I am plotting the results, the no.
> of
> > observation is coming as the level. Hence, I have a different level
> > name for each observation differently for each column. I have 2
> > columns,
> namely
> > DMs, and EMs, which will be clustered, but I am unable to label each
> > dot
> in
> > the cluster as per their different name. In other words, the dots in
> > the cluster are being labeled as per their number of observation
> > which I want to rename as per their different name in the data. But,
> > sometimes in
> code,
> > both the columns indicating the cluster names are not supporting due
> > to their non-numerical texts.
> >
> > Hence, my query is how to rename or change the label of each dot in
> > a cluster. Here is my code.
> >
> > library(tidyverse)
> > library(cluster)
> > library(factoextra)
> > k2 <- kmeans(ts, centers = 2, nstart = 25) fviz_cluster(k2, data =
> > ts)
> >
> > Here, I have 2 columns i.e. DMs, and EMs with their different label
> > name (i.e. the different name for different observation differently
> > for 2 columns), and want to plot such label name in the cluster
> > graph rather
> than
> > the no. of observation.
> >
> > For your convenience, I am attaching my data.
> >
> > Please find the attached data, and kindly help me in this regard.
> >
> > Thank you.
> >
> >
> >
> > --
> > *Best Regards,*
> > *Subhamitra Patra*
> > *Phd. Research Scholar*
> > *Department of Humanities and Social Sciences* *Indian Institute of
> > Technology, Kharagpur*
> > *INDIA*
> >
> > [image: Mailtrack]
> > <
> https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaig
> n=signaturevirality5&
> >
> > Sender
> > notified by
> > Mailtrack
> > <
> https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaig
> n=signaturevirality5&
> >
> > 06/11/19,
> > 9:54:45 AM
> > ______________________________________________
> > R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
>

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences* *Indian Institute of Technology, Kharagpur*
*INDIA*

[[alternative HTML version deleted]]

______________________________________________
R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
Osobní údaje: Informace o zpracování a ochraně osobních údajů obchodních partnerů PRECHEZA a.s. jsou zveřejněny na: https://www.precheza.cz/zasady-ochrany-osobnich-udaju/ | Information about processing and protection of business partner’s personal data are available on website: https://www.precheza.cz/en/personal-data-protection-principles/
Důvěrnost: Tento e-mail a jakékoliv k němu připojené dokumenty jsou důvěrné a podléhají tomuto právně závaznému prohláąení o vyloučení odpovědnosti: https://www.precheza.cz/01-dovetek/ | This email and any documents attached to it may be confidential and are subject to the legally binding disclaimer: https://www.precheza.cz/en/01-disclaimer/