Different patterns for arches (links)

[rbandari83]

Hi I have below coding for chord diagram and 2 different type of data (i.e., positive and negative ones). I used the dash pointed line for negative ones (just line around of each arches) but I want to know that how I can define different pattern for inside of each arch (link) instead of dash pointed line around them. Thanks in advance.
library(statnet)
library(circlize)
library(readxl)
data1 <- read_excel("C:
Goal Negative.xlsx
Goal posetive.xlsx

\SDGs\My File GM\Final Nvivo & Excel\R program\Goal negative.xlsx", col_names = FALSE)
my.data1 <- as.matrix(x =data1, nrow = 5, ncol = 5)
rownames(my.data1) <- c("SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
colnames(my.data1) <- c("SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
data2 <- read_excel("C:\Users\rbandari\OneDrive - Deakin University\SDGs\My File GM\Final Nvivo & Excel\R program\Goal posetive.xlsx", col_names = FALSE)
my.data2 <- as.matrix(x =data2, nrow = 5, ncol = 5)
rownames(my.data2) <- c("SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
colnames(my.data2) <- c("SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself

mat=rbind(my.data1,my.data2)
rownames(mat) <- c("SDG2","SDG6","SDG8","SDG13","SDG15","SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
colnames(mat) <- c("SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
grid.col[c("SDG2","SDG6","SDG8","SDG13","SDG15")] = c(rgb(red = 221, green = 166, blue = 58, max=255),rgb(red = 38, green = 189, blue = 226, max=255), rgb(red = 162, green = 25, blue = 66, max=255), rgb(red = 63, green = 126, blue = 68, max=255), rgb(red = 86, green = 192, blue = 43, max=255))

lwd_mat = matrix(1, nrow = nrow(mat), ncol = ncol(mat))
rownames(lwd_mat) <- c("SDG2","SDG6","SDG8","SDG13","SDG15","SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
colnames(lwd_mat) <- c("SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
lwd_mat[mat < 0] = 2
border_mat = matrix(NA, nrow = nrow(mat), ncol = ncol(mat))
rownames(border_mat) <- c("SDG2","SDG6","SDG8","SDG13","SDG15","SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
colnames(border_mat) <- c("SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
border_mat[mat < 0] = "red"
lty_mat =matrix(1, nrow = nrow(mat), ncol = ncol(mat))
rownames(lty_mat) <- c("SDG2","SDG6","SDG8","SDG13","SDG15","SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
colnames(lty_mat) <- c("SDG2","SDG6","SDG8","SDG13","SDG15")#named by yourself
lty_mat[mat < 0] = 3

chordDiagram(mat, grid.col = grid.col, link.lwd = lwd_mat, link.lty =lty_mat, link.border = border_mat,
transparency = 0.25, annotationTrack = "grid", preAllocateTracks = list(track.height = max(strwidth(unlist(dimnames(my.data))))))
circos.track(track.index = 1, panel.fun = function(x, y) {
circos.text(CELL_META$xcenter, CELL_META$ylim[1], CELL_META$sector.index,
facing = "outside", niceFacing = TRUE, adj = c(0.4, 1))
}, bg.border = NA) # here set bg.border to NA is important

circos.clear()