[R-es] Fwd: colores de los plots

[Jose Betancourt Bethencourt]

Estimado
  no funcionó

 es simple lo que quiero , es que las lineas de todos los plots tengan
 un color que no sea el negro

 saludos

 José
>
> El 1/3/22, Juan Abasolo <juan.abasolo using ehu.eus> escribió:
>> 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
>>
>
>
> --
> Dr. Jose A. Betancourt Bethencourt
> Universidad de Ciencias Medicas Carlos j. Finlay
>


-- 
Dr. Jose A. Betancourt Bethencourt
Universidad de Ciencias Medicas Carlos j. Finlay