¿Cómo convertir una celda de salida en una celda de texto sin tener "" en el texto?
Esto es parte de mi código:
Grid[{{"Número de indivíduos", "Máximo", "Mínimo", "Mediana", "Média", "Desvio Padrão"}},
Dividers -> Center] // TextCell // CellPrint
Y el resultado que obtengo es este:
"Número de indivíduos" | "Máximo" | "Mínimo" | "Mediana" | "Média" | "Desvio Padrão"
Pero quiero obtener este resultado sin las comillas, ¿cómo puedo hacer esto?
Respuestas
Básicamente, lo que controla si una cadena muestra comillas o no es la Cellopción ShowStringCharacters. Para las celdas de salida, esta opción se establece en False:
CurrentValue[{StyleDefinitions, "Output", ShowStringCharacters}]
Falso
Por lo tanto, las celdas de salida no mostrarán comillas:
Grid[
{{"Número de indivíduos", "Máximo", "Mínimo", "Mediana", "Média", "Desvio Padrão"}},
Dividers -> Center
] // TextCell

Si insiste en usar CellPrinttambién:
Grid[
{{"Número de indivíduos", "Máximo", "Mínimo", "Mediana", "Média", "Desvio Padrão"}},
Dividers -> Center
] // TextCell //CellPrint

luego crea el siguiente Cellobjeto (puede ver esto usando Cell | Show Expression
desde el menú):
Celda [BoxData [TagBox [GridBox [{{"" <N [UAcute] mero de indiv [IAcute] duos> "", "" <M [AAcute] ximo> "", "" <M [IAcute] nimo> " "," "<Mediana>" "," "<M [EAcute] dia>" "," "<Desvio Padr [ATilde] o>" "}}, AutoDelete-> False, GridBoxDividers -> {" Columns "- > {Falso, {Verdadero}, Falso}, "Filas" -> {Falso, {Verdadero}, Falso}}, GridBoxItemSize -> {"Columnas" -> {{Automático}}, "Filas" -> {{Automático }}}], "Grid"]], GeneratedCell-> True, CellAutoOverwrite-> True, CellChangeTimes -> {3.806851714647841 * ^ 9}]
Observe que esta celda no tiene un tipo (por ejemplo, "Salida") como segundo argumento, como lo es el segundo argumento GeneratedCell -> True
. Entonces, el valor de la opción es el predeterminado:
CurrentValue[ShowStringCharacters]
Cierto
Es por eso que agregar CellPrint(que es completamente innecesario) muestra las comillas. Si realmente debe usar CellPrint, entonces puede cambiar su TextCellpara especificar esta opción:
TextCell[
Grid[
{{"Número de indivíduos", "Máximo", "Mínimo", "Mediana", "Média", "Desvio Padrão"}},
Dividers -> Center
],
ShowStringCharacters->False
] //CellPrint

Salida con estilo "Imprimir"
Cuadrícula [{{"Text 1", Style ["Text 2", RGBColor [0.8, 0.35, 0], Bold, FontFamily -> "Franklin Gothic", FontSize -> 17], "Text 3", Style ["Text 4 ", RGBColor [0, 0.5, 0.5], FontFamily ->" Garamond "FontSize -> 20]}}, Divisores -> Todos] // Imprimir