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.abas...@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 (betans...@gmail.com) >> erabiltzaileak (2022 mar. 1, ar. (12:53)): >> >>> ---------- Forwarded message ---------- >>> From: Jose Betancourt Bethencourt <betans...@gmail.com> >>> Date: Fri, 25 Feb 2022 13:38:44 -0500 >>> Subject: colores de los plots >>> To: r-help-es <r-help-es@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@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 _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es