[R-es] Fwd: colores de los plots

[Jose Betancourt Bethencourt]

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 2/3/22, Jose Betancourt Bethencourt <betanster using gmail.com> escribió:
> 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
>


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