[R-es] Fwd: colores de los plots

[Juan Abasolo]

Hola, Jose;
A mí no me da para entender lo que estás haciendo, o sea que entender lo
que preguntás, muy probablemente no lo haga. Como ejercicio de antes de
irme a dormir agarré tu script, le  sume tidiverse, de haragán no más y
probé de a poquito

model$variables$severidad %>% plot(col = 1:3)

Y sale el primero de los modelos con las rayas de tres colores. o sea que
si lo recreás y lo único que querés es cambiar algunos de los colores, ese
es el camino.
Si es medio raro, porque si le pedís que haga lo mismo con el tipo de
linea, no lo hace, solamente toma el primer valor.

Suerte



Hau idatzi du Jose Betancourt Bethencourt (betanster using gmail.com)
erabiltzaileak (2022 mar. 1, ar. (12:53)):

> ---------- Forwarded message ----------
> From: Jose Betancourt Bethencourt <betanster using gmail.com>
> Date: Fri, 25 Feb 2022 13:38:44 -0500
> Subject: colores de los plots
> To: r-help-es <r-help-es using r-project.org>
>
> Estimados
> En este script quisieramos poder manejar los colores de los plots
> plot(model)  y plot(example1)
>
>  y no
> vemos como se puede hacer
> Por lo que apreciariamos su ayuda
> NO RECIBIMOS RESPUESTA
>  saludos cordiales.
> José
>
>
>
>
>
> rm(list=ls(all=TRUE))
>
> library(sets)
>
> sets_options("universe", seq(1, 45, 1))
>
> #VARIABLES   no cierra
>
>
>
>   variables <- set(
>       temp= fuzzy_partition(varnames = c(normal= 36.5,
>   moderada= 37.5, alta= 38, muyalta=39), sd = 0.2),
>
>   disnea = fuzzy_partition(varnames = c(no = 0, poca =
> 20,mucha=40),sd=2.5),
>
>   gusto = fuzzy_partition(varnames = c(no = 0, poca = 30,mucha=40),sd=2.5),
>
>   garganta = fuzzy_partition(varnames = c(no = 0, poca =
> 25,mucha=40),sd=2.5),
>
>   severidad = fuzzy_partition(varnames = c(baja = 10, media = 20,alta=40),
>                               FUN = fuzzy_cone, radius = 10)
>   )
>
>
>
>   #RULES
>
>   rules <- set(
>
>     fuzzy_rule(temp %is% muyalta && disnea%is% mucha && gusto%is%mucha&&
>                  garganta%is%mucha, severidad %is% alta),
>     fuzzy_rule(temp %is% muyalta&& disnea%is% mucha, severidad %is% alta),
>     fuzzy_rule(temp %is% normal && disnea%is% no && gusto%is%no&&
>                  garganta%is%no, severidad %is% baja),
>     fuzzy_rule(temp %is% normal && disnea%is% no, severidad %is% baja),
>     fuzzy_rule(temp %is% moderada && disnea%is% poca && gusto%is%poca&&
>                  garganta%is%poca, severidad %is% media),
>     fuzzy_rule(temp %is% moderada && disnea%is% poca, severidad %is% media)
>
>   )
>
>
>
>
> model <- fuzzy_system(variables, rules)
> print(model)
> plot(model)
>
>
> hacer=========================
>
> example.1 <- fuzzy_inference(model, list(temp = 37,
> disnea=40,garganta=40,gusto=40))
>
> gset_defuzzify(example.1, "centroid")  # NaN
>
> plot(example.1)
>
>
>
> example.2 <- fuzzy_inference(model, list(Edad = 70, IMC=30,Tas=140,
>                                          tabaquismo= 40, glicemia=140))
> gset_defuzzify(example.2, "centroid")  # NaN
>
> plot(example.2)
>
>
> example.3 <- fuzzy_inference(model, list(Edad = 75, IMC=30,Tas=140,
>                                          tabaquismo= 40, glicemia=150))
> gset_defuzzify(example.3, "centroid")  # NaN
>
> plot(example.3)
> sets_options("universe", NULL)
> --
> Dr. Jose A. Betancourt Bethencourt
> Universidad de Ciencias Medicas Carlos j. Finlay
>
>
>
> --
> Dr. Jose A. Betancourt Bethencourt
> Universidad de Ciencias Medicas Carlos j. Finlay
>
> _______________________________________________
> R-help-es mailing list
> R-help-es using r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>


-- 
Juan Abasolo, PhD

Hizkuntzaren eta Literaturaren Didaktika Saila | EUDIA ikerketa taldea
Bilboko Hezkuntza Fakultatea
Euskal Herriko Unibertsitatea UPV/EHU

Sarriena auzoa z/g 48940 - Leioa (Bizkaia)

T       : (+34) 94 601 7567
Telegram: @JuanAbasolo
Skype   : abasolo72

	[[alternative HTML version deleted]]