[R] Changing the label name in the plot

Tue Jun 11 16:28:44 CEST 2019

OK. Thanks, Petr.

Bert Gunter

"The trouble with having an open mind is that people keep coming along and
sticking things into it."
-- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )

On Tue, Jun 11, 2019 at 7:22 AM PIKAL Petr <petr.pikal using precheza.cz> wrote:

> Hi Bert
>
> names(ts)
> [1] "Name"   "DMs"    "Name.1" "EMs"
> >
> R is clever enough not to end with same name.
>
> My error comes from ts not to be all numeric. However OP error is
> different therefore it is something weird with original data.
>
> Cheers.
> Petr
>
> From: Bert Gunter <bgunter.4567 using gmail.com>
> Sent: Tuesday, June 11, 2019 3:15 PM
> To: PIKAL Petr <petr.pikal using precheza.cz>
> Cc: Subhamitra Patra <subhamitra.patra using gmail.com>; 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
>
> There appear to be two columns with the same name. Surely this will cause
> problems.
>
> Bert Gunter
>
> "The trouble with having an open mind is that people keep coming along and
> sticking things into it."
> -- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )
>
>
> On Tue, Jun 11, 2019 at 3:19 AM PIKAL Petr <mailto:petr.pikal using precheza.cz>
> wrote:
> 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 <mailto:r-help-bounces using r-project.org> On Behalf Of
> Subhamitra Patra
> Sent: Tuesday, June 11, 2019 10:49 AM
> To: Jim Lemon <mailto:drjimlemon using gmail.com>; r-help mailing list <mailto:
> 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 <mailto: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
> > <mailto: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
> > > ______________________________________________
> > > mailto: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]]
>
> ______________________________________________
> mailto: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/
>
> ______________________________________________
> mailto: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.
>

	[[alternative HTML version deleted]]