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 en 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 en 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 en gmail.com)
>>> erabiltzaileak (2022 mar. 1, ar. (12:53)):
>>>
>>>> ---------- Forwarded message ----------
>>>> From: Jose Betancourt Bethencourt <betanster en
gmail.com>
>>>> Date: Fri, 25 Feb 2022 13:38:44 -0500
>>>> Subject: colores de los plots
>>>> To: r-help-es <r-help-es en 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 en 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