How to get the most frequent attribute in XQuery? - xpath

Question

I have XML data that has many <ref> elements that have a type attribute. I would like to get the most popular type for each of the files, but can't seem to figure it out... Right now I have
for $song in collection('/db/course/rap/data')
let $types := distinct-values($song//ref/#type)
for $type in $types
let $freq := count($song//ref[#type=$type])
order by $freq descending
return concat($song//title/string(), ' ', $type, ' ', $freq)
which gives me the name of the song (title element), and frequency values for each type in that song. However, I am only interested in the most popular item in each one. I've been trying for a long time, but can't come up with anything meaningful...
Example:
<song>
<header>
<title>Восток</title>
<artist>25/17 п.у. Саграда</artist>
<album>Межсезонье</album>
<accessDate>09/16/2013</accessDate>
<source href="http://vk.com/audio?performer=1&q=25%2F17"/>
</header>
<lyrics>
<stanza>
<line n="1"><ref type="home" value="neut">Моя земля</ref>, <ref type="war" value="neut"
>пропитана кровью</ref> до магмы,</line>
<line n="2">Я видел <ref type="war" value="neut">флагман</ref> под небесным Андреевским
флагом.</line>
<line n="3">Женщины плакали, <ref type="war" value="neut">эскадра выходила в море</ref>.
Оно так и не возвратило лейтенанта домой,</line>
<line n="4"><ref type="war" value="neut">Эсминец принял бой, был потоплен</ref>. То ли
мины, то ли в баках рвануло топливо.</line>
<line n="5">А Севастополь ждал назад и верил искренне, шагами меряя пространство
Графской пристани,</line>
<line n="6">И если пристально смотреть в сторону востока, то можно разглядеть и флаги на
флагштоках,</line>
<line n="7">погибших кораблей, ведь <ref type="soul" value="pos">через 9 дней их души
отлетают в небо как и у людей</ref>.</line>
<line n="8">
<ref type="home" value="neg">Но Черноморский флот уже не тот, чужие корабли проходят
мимо Инкерманских высот,</ref>
</line>
<line n="9">за горизонт, в эти закаты алые, пока гробницы стерегут прах
адмиралов.</line>
<line n="10">Я и не знал, что значит надпись не по нашему , на именном оружии ,
расстрелянного маршала,</line>
<line n="11">и почему <ref type="war" value="pos">всё то, что было завоевано</ref> пошло
<swear>проёбом</swear>. Или мы сами предаём это?</line>
<line n="12"><ref type="war" value="neg"><ref type="home" value="neg">Районы</ref>, как
театр военных действий</ref>, тут <ref type="drugs">опиаты</ref> рано обрывают
детство.</line>
<line n="13">Врачи лупили по щекам, мне говорили, дыши, <ref value="pos">ведь все они
погибли, ради того чтобы ты жил</ref>!</line>
</stanza>
<stanza type="chorus">
<line n="14">На свет из тени, из подземелий на воздух.</line>
<line n="15">Пока есть время и силы, пока ещё не поздно.</line>
<line n="16">Ещё не познанный, мой ориентир.</line>
<line n="17">Я вижу грозный, прекрасный, яростный мир.</line>
<line n="18">На свет из тени, из подземелий на воздух.</line>
<line n="19">Пока есть время и силы, пока ещё не поздно.</line>
<line n="20">Ещё не познанный, мой ориентир.</line>
<line n="21">Я вижу грозный, прекрасный, яростный мир.</line>
</stanza>
<stanza>
<line n="22">Учебник по истории, подобный девке площадной, готов отдаться <ref
type="politics" value="neg">каждому, кто завладел казной</ref>.</line>
<line n="23"><ref type="politics" value="neg">В очередной войне за трон</ref>, <ref
type="econ" value="neg">станок печатает тираж</ref> , <ref value="politics"
type="neg">кто защищал свой порт, а кто кричал «На абордаж».</ref></line>
<line n="24">Уже не важно, важно кто за это платит, кто подливает в твой бокал и
покупает платье.</line>
<line n="25">Ломала каблуки, хмельная, в страстном танце, потом за школой, <ref
type="sex">тебя имели иностранцы.</ref></line>
<line n="26">
<ref type="russia">Шептала, «Всех люблю, всем хватит места», а ведь когда то ты
мечтала быть невестой.</ref>
</line>
<line n="27">Семья. Сын учится ходить хватаясь за подол. Сейчас ты на коленях за арбуз.
Тебе не западло?</line>
<line n="28">И кто тебя поднимет, ведь ты сама не хочешь.</line>
<line n="29"><ref type="family">Отец</ref> сгорел от горя, ты в бреду хохочешь.</line>
<line n="30">Переписать учебник. Смыть с тебя всю грязь.</line>
<line n="31">Слезами. Потом с кровью. В очередной раз.</line>
</stanza>
<stanza type="chorus">
<line n="32">На свет из тени, из подземелий на воздух.</line>
<line n="33">Пока есть время и силы, пока ещё не поздно.</line>
<line n="34">Ещё не познанный, мой ориентир.</line>
<line n="35">Я вижу грозный, прекрасный, яростный мир.</line>
<line n="36">На свет из тени, из подземелий на воздух.</line>
<line n="37">Пока есть время и силы, пока ещё не поздно.</line>
<line n="38">Ещё не познанный, мой ориентир.</line>
<line n="39">Я вижу грозный, прекрасный, яростный мир.</line>
</stanza>
<stanza type="chorus">
<line n="40">На свет из тени, из подземелий на воздух.</line>
<line n="41">Пока есть время и силы, пока ещё не поздно.</line>
<line n="42">Ещё не познанный, мой ориентир.</line>
<line n="43">Я вижу грозный, прекрасный, яростный мир.</line>
<line n="44">На свет из тени, из подземелий на воздух.</line>
<line n="45">Пока есть время и силы, пока ещё не поздно.</line>
<line n="46">Ещё не познанный, мой ориентир.</line>
<line n="47">Я вижу грозный, прекрасный, яростный мир.</line>
</stanza>
</lyrics>
If we assume that this song has 20 war references and 5 soul references (didn't actually count), then the desired output would be the song name (title element), and the most popular referent (war).

Answer 1

Limit the number of results for each song to one:
for $song in collection('/db/course/rap/data')
let $types := distinct-values($song//ref/#type)
return (
for $type in $types
let $freq := count($song//ref[#type=$type])
order by $freq descending
return concat($song//title/string(), ' ', $type, ' ', $freq)
)[1]

Answer 2

Seems like something like the bits below (un-tested) would get you the most frequent. There are probably more efficient, better ways.
let $songs := collection('/db/course/rap/data')
return
(
for $type in $songs//ref[#type]
let $freq := count($songs//ref[#type=$type])
order by $freq descending
return ($t, $freq)
)[1]