Ich habe den Code, unter dem ich versuche, mit dem erstaunlichen Paket circlize @ ein kreisförmiges Diagramm zu erstelle

Ich habe die Vigenette gelesen und zugeben, dass einiges über meinen Kopf gegangen ist,

Ich habe mich gefragt, ob es eine schnelle Möglichkeit gibt, alle Beschriftungen in meinem Diagramm, einschließlich der Häkchen, zu entfernen, und füge sie einfach wieder in AUDI, VOLVO und BMW in hellgrau in demselben Winkel zum Sektor hinzu, wie in diesem Beispiel.Beispie

library (dplyr)
library(circlize)

df = read.table(textConnection("
 Brand_from model_from Brand_to Model_to
                           VOLVO        s80      BMW  5series
                           BMW    3series      BMW  3series
                           VOLVO        s60    VOLVO      s60
                           VOLVO        s60    VOLVO      s80
                           BMW    3series     AUDI       s4
                           AUDI         a4      BMW  3series
                           AUDI         a5     AUDI       a5
                           "), header = TRUE, stringsAsFactors = FALSE)


# Add customer satisfaction (1 being positive, 0 being negative)
df <- df %>%
  mutate(Customer.Sat = c("POS","NEG","NEG","POS","POS","NEG","NEG")) %>%
  select(Brand_from,Brand_to,Customer.Sat )

# Set the colour Scheme for the association
col = c("NEG" = "red",
    "POS" = "green")

diffHeight = c("POS" = -0.02,
           "NEG" = 0.04)

# Build the Chord Diagram
chordDiagram(df[1:2], 
         col = col[df$Customer.Sat],
         diffHeight = diffHeight[df$Customer.Sat])

circos.clear()

Ich sehe, dass es möglich ist, basierend aufSeite 17 der Vignette mit dem Code

# Rotates the Labels so they are 90 Degrees to the chord diagram
circos.trackPlotRegion(track.index = 1, panel.fun = function(x, y) {
 xlim = get.cell.meta.data("xlim")
 ylim = get.cell.meta.data("ylim")
 sector.name = get.cell.meta.data("sector.index")
 circos.text(mean(xlim), ylim[1] + .1, sector.name, facing = "clockwise", niceFacing = TRUE, adj = c(0, 0.5))
 circos.axis(h = "top", labels.cex = 0.5, major.tick.percentage = 0.2,     sector.index = sector.name, track.index = 2)
}, bg.border = NA)

Ich habe die Antwort auf @ gesehLabels in einem Akkorddiagramm drehen (R circlize) das ist sehr ähnlich

Dies entfernt jedoch nicht die vorhandenen Beschriftungen wie Markierungen und Namen der Sektoren.